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mstrad ne peut 
plus employer le 
terme "CPC" 
pour ses micros 
familiaux, en 
revanche rien ne lui 
interdit d'utiliser PPC 
pour le nouvel 
ordinateur compatible 
avec qui vous savez 
et de lui donner la 
forme d'un portable... 
Cet ordinateur pas 
vraiment 

révolutionnaire était le 
seul événement de 
l'Amstrad Computer 
Show qui avait lieu 
du 4 au 6 février à 
Londres. Nous vous 
en parlerons bientôt... 
Tout cela n'empêche 
pas CPC de vous 
proposer une 
nouveauté : le forum 
des lecteurs. Cette 
rubrique, souvent 
réclamée, sera mise 
en place dès le mois 
prochain. D'ores et 
déjà, nous vous 
invitons à nous 
inonder de votre 



courrier. 
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otre but n'est pas de vous 
livrer un logiciel "qui sache 
tout faire", il serait énorme, 
mais de vous indiquer comment le 
programmer vous-même, exacte- 
ment à vos mesures. Ce ne sera plus 
qu'un sous-programme intégré dans 
votre programme. Une fois tracée à 
l'écran, vous aurez la possibilité 
d'enregistrer cette image ou de l'en- 
voyer à l'imprimante. 
Le su|et n'est pas neuf : nous avons 
déjà publié la représentation 
camembert dans CPC n° 2 page 19, 
les histogrammes en 3D dans CPC 
n° 1 3 page 54 et les graphiques en 
XY dans CPC n° 6 page 46. Ces 
trois articles ont été ensuite amélio- 



rés sur des points de détails dans 
l'ouvrage du même auteur "Pro- 
grammes utilitaires pour AMS- 
TRAD" (Editions SORACOM). 
Aujourd'hui nous reparlerons des 
graphiques XY, car le logiciel déjà 
cité était un "monstre à tout faire" 
très performant, mais dont la com- 
plexité mathématique a souvent 
effrayé... Cette fois-ci c'est beau- 
coup plus simple d'emploi puisqu'il 
n'y a plus tous ces paramètres à 
entrer ; ils sont constants car ils ne 
concernent que votre programme et 
lui seul. Seuls le titre et les valeurs 
des points changent, d'où un listing 
beaucoup plus court et surtout beau- 
coup plus simple. Heureusement, car 
là on est obligé de comprendre ce 
que l'on tape, puisque nous avons 
annoncé du "sur mesure"... 

DEFINISSONS L'ECRAN 

Pas question d'être en MODE 1, le 
MODE 2 est quasi obligatoire avec 
ses traits fins et ses 80 caractères par 
ligne. De ce fait on passe en carac- 
tères noirs sur fond clair (gris ou bleu 
clair) pour les CPC couleur. 
On dispose horizontalement (X) de 
640 points et verticalement (Y) de 
400 points. En fait ces derniers s'éta- 
lent sur 200 lignes vidéo : cette 
"dilatation numérique" de 200 à 
400 est une commodité de program- 



Un désir légitime est d'obtenir 

sur écran (ou sur papier) un 

graphique représentant des 

valeurs numériques entrées ou 

calculées. Qu'il s'agisse d'une 

"courbe", d'un "camembert" 

ou de "barres", c'est plus 

"parlant" que des colonnes 

de nombres. Hélas beaucoup 

ont abandonné face à une 

complexe programmation de 

PLOT et de DRA W. 

mation, pour que 100 "points Y" 
représentent la même longueur que 
100 "points X", qui eux sont bien 
réels. Voilà pourquoi les traits verti- 
caux sont deux fois plus fins à l'écran 
que les horizontaux. 
Par défaut l'ORIGINE des points en 
X et Y c'est l'angle situé en bas à 
gauche de l'écran, c'est le point aux 
"coordonnées" 0,0. 
On ne va pas tracer les deux axes 
à partir de ce point car il nous faut 
une petite marge en bas et une autre 
a gauche, pour y inscrire les gradua- 
tions et leurs valeurs chiffrées, ainsi 
que les légendes et unités de ces 
axes X et Y. Pour ces marges une 
"épaisseur" de 50 points sera suffi- 
sante, donc l'origine des axes sera 
aux coordonnées 50, 50. De plus on 
va laisser en haut de l'écran une 
"marge" de 50 points réservée au 
titre, ainsi qu'une autre plus étroite, 
disons 10 points, à droite de l'écran 
afin que le graphe ne "colle" pas au 
bord droit ; ça fait plus propre (voir 
figure). Faisons le bilan : 
L'espace UTILE pour le graphique 
n'est plus que de 640-50-10 = 580 
points en X, et de 400-50-50 = 300 
points en Y. OK ? 
La commande BASIC ORIGIN 
déplace l'origine des coordonnées 
graphiques ; elle va être pratique 
pour simplifier l'écriture du listing. 
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Ainsi nous pouvons déjà tracer nos 

deux axes : 

INK0,20: INK 1,0 

MODE 2 

ORIGIN 50,50 

DRAW 580,0,1 :'axe X en PEN1 

PLOT 0,0 /retour à l'origine 

DRAW 0,300,1 : axe Y en PEN1 

Jusqu'ici c'est la partie commune à 

tous les tracés de graphiques X,Y. 

LES TRAITS 

DE GRADUATIONS DES AXES 

Nous abordons maintenant les cons- 
tantes personnalisées de votre pro- 
gramme ; nous devons donc poursui- 
vre notre mode opératoire à l'aide 
d'exemples numériques. 
Fixons d'abord les valeurs extrêmes 
de vos axes, par exemple X peut 
aller de à 180 et Y de à 100. 
On programme alors 
DX=180 : DY=100 
(Si X variait de 2000 à 5000 on 
aurait DX = 3000) 
Pour traduire les valeurs réelles en 
points graphiques il nous faut établir 
deux facteurs multiplicatifs, à savoir 
FX = 580/DX : FY = 300/DY 
Fixons le pas (intervalle) des gra- 
duations des axes : disons un tiret 
toutes les 15 unités sur X et toutes les 

10 unités sur Y 
PGX=15 : PGY=10 

Pour faire nos petits tirets verticaux 
sous l'axe X c'est tout simplement 
FOR N = TO DX STEP PGX 
PLOTN*FX,0: DRAWR0,-5: NEXT 
Idem pour les tirets horizontaux à 
gauche de l'axe Y. 
Deux choses essentielles sont à 
remarquer : 

• On confie à l'ordinateur le soin de 
calculer les positionnements des 
traits. 

• On utilise à la fois les commandes 
à coordonnées ABSOLUES, telles 
que PLOT et DRAW, et celles à 
coordonnées RELATIVES telles que 
DRAWR. 

ETALONNAGE DES AXES 

11 s'agit d'inscrire des valeurs en face 
de nos petits tirets. On va utiliser la 
même méthode que précédemment, 
mais attention ! Pas question d'opé- 
rer par des LOCATE qui tomberont 
presque toujours "à côté", mais par 
TAG qui permet le PRINT à partir de 
n'importe quel point de l'écran. 
Deux rappels à ce sujet : une lettre 
ou un chiffre occupe 8 points de 
large sur 16 points de haut (en 



MODE 2). C'est l'angle en haut à 
gauche du "pavé caractère" qui est 
pris en compte par PLOT et TAG. 
Les valeurs numériques seront affi- 
chées par des PRINT USING, mais 
on peut aussi afficher des CHAI- 
NES, par exemple des mois de l'an- 
née. Ces inscriptions devront être 
centrées en face de leur trait repère, 
donc elles devront toutes avoir la 
même longueur en caractères. Sup- 
posons longueur = 3, soit 3x8 = 24 
points graphiques. En conséquence, 
les TAG sur l'axe X seront décalés 
de 1 2 points à gauche (LEN/2) et de 
10 points vers le bas (= hauteur du 
tiret + 5 de séparation). Pour l'axe 
Y c'est plus simplement un décalage 
à gauche de 34, c'est-à-dire LEN + 
tiret + séparation. 
Pour afficher des chaînes il faudra 
les mettre en DATA. 
Cela est illustré dans notre pro- 
gramme de démonstration, lignes 
25150 à 25200. 

Remarquez la syntaxe de TAG : le 
TAG, les PLOT, et les PRINT suivis 
d'un POINT-VIRGULE; ce pour évi- 
ter l'affichage de deux caractères 
graphiques. Et en final le TAGOFF, 
à ne jamais oublier... 
Nous venons de terminer le "gros 
œuvre", on va ajouter quelques fio- 
ritures telles que titres, légendes, 



etc., et il ne restera plus qu'à tracer 
notre graphe et ça, paradoxale- 
ment, c'est le plus facile ! 

TITRES ET LEGENDES 

Il est sage de prévoir la place pour 
deux lignes de titres en haut de 
l'écran. Pour leur positionnement en 
hauteur TAG + PLOT est ici encore 
Comme dès le départ nous avons 
opté pour une présentation soignée, 
le titre et sous-titre seront autocen- 
trés. Idem pour la légende de l'axe 
X, mais avec une différence toute- 
fois : 

d'un graphique à l'autre la légende 
X est immuable, elle est dans le pro- 
gramme, alors que les deux titres 
changent ; ils devront donc être 
entrés au préalable par INPUT 
TIT1S et INPUT TIT2S 

Ces trois textes sont affichés par les 
lignes 25260 à 25300. 
Gros problème pour légender l'axe 
vertical Y : comme notre BASIC ne 
permet pas de faire pivoter un affi- 
chage de 90°, nous allons disposer 
ses caractères les uns sous les autres, 
comme une enseigne verticale. 
Là encore nous conserverons le cen- 
trage haut-bas de la chaîne. Nous 
calculons la hauteur de départ DEP 
(voir ligne 25320) puis un PLOT par 
caractère lu par MID$. 
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Découpage de l'écran 640 x 400 en 580 x 300 pour le graphe X Y. L'origine 
graphique est amenée à l'origine des axes X et Y. 
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Quelques explications : 
La légende LY$ a une hauteur HLY 
points (=LEN*16). Le point de 
départ serait à la hauteur 300/2 + 
HLY/2 mais dans la boucle FOR 
N= 1 TO LEN(LY$) on décrémente 
DEP par PLOT-45,DEP-N* 16 : il 
faut donc, pour conserver le cen- 
trage, augmenter de 1 6 la valeur de 
DEP, d'où DEP= 166+ HLY/2. 
Rassurez-vous, vous n'aurez pas à 
modifier nos formules pour afficher 
les titres et les légendes d'axes ; 
mais il fallait comprendre nos calculs 
au cas où cette disposition ne vous 
conviendrait pas. 

LE TRACE DE LA COURBE 

(lignes 25360 à 25400) 
Notez que nous avons écrit 
"courbe" au singulier... En effet il 
serait difficile de différencier plu- 
sieurs courbes sur un même graphe : 
par la couleur, pas question en 
MODE 2, quant à tracer en pointil- 
lés rien n'est prévu dans notre 
BASIC. C'est possible mais au prix 
d'une complexité de programmation 
"pas racontable". Il faudrait créer 
un RSX spécial qui serait le pendant 
de la commande DRAW. 

Notre courbe sera en fait une ligne 
brisée joignant tous nos points de co- 
ordonnées. En faire une courbe 
"arrondie" nécessiterait un déve- 
loppement mathématique considéra- 
ble ; risqué sur un micro-ordinateur 
de huit bits, même en assembleur. 
(L'auteur n'est pas un matheux, mais 
si cela vous tente...). 
Notre listing considère que les co- 
ordonnées sont dans un tableau DIM 
V( 100,1) : soit 100 "points" maxi ; 
indice = X ; indice 1 =Y. Il y a en 
fait NP points à représenter 
(NP< = 100) et à joindre par des 
DRAW. Tout est alors ultra simple : 
PLOT sur le premier point 
PLOT V(1,0)*FX,V(1,1)*FY 
puis des DRAW au deuxième point, 
jusqu'à NP. 

LA PHASE FINALE 

Une fois le graphique terminé à 
l'écran (nous avons chronométré 
deux secondes pour afficher axes + 
légendes + courbe), pas question de 
terminer par END ! Sinon nous 
aurions le "Ready" en haut à 
gauche... 

On met le micro en attente d'une tou- 
che au clavier (ligne 25420) : 



si l'on pressé E l'image est enregis- 
trée en binaire ; si c'est une autre 
touche il y a retour en MODE 1 avec 
les couleurs habituelles, et END. 
On peut aussi prévoir I pour Impres- 
sion, c'est-à-dire un CALL ou un 
GOSUB vers une routine de HARD 
COPY d'écran. 

Le fichier écran obtenu par E (17 
kilo-octets) peut avoir trois usages : 

a. A défaut d'imprimante on visua- 
lise les graphiques archivés, par 
LOAD nom du fichier. On peut aussi 
prévoir un programme BASIC très 
court qui les présenterait successive- 
ment à l'écran. 

b. Un tel fichier binaire est chargea- 
ble par certains logiciels de DAO, tel 
CHERRY PAINT qui lui aussi ne con- 
naît que le MODE 2. Vous pourrez 
alors vous livrer à toutes sortes de 
fioritures : titres avec d'autres carac- 
tères, annotations sur la (ou les) 
courbe, quadrillage, etc. Pensez 
alors à renommer le fichier non plus 
en .BIN mais en .C-P avant de le 
charger. Après modifications (ou 
non) vous pourrez ensuite l'enregis- 
trer et l'imprimer en format 21 x27 
cm. (Ce que nous avons fait). 

c. A défaut de logiciel DAO on peut 
également obtenir de superbes 
copies sur imprimante avec des logi- 
ciels prévus pour la HARD COPY, 
par exemple TASCOPY de "Séma- 
phore" ou PRINTER PACK II de 
"Pride Utilities". 



CAS PARTICULIERS 

Notre exemple était banal et des 
plus courants, mais votre problème 
est peut-être bien plus complexe. 
Nous allons prouver qu'il vous sera 
facile de tout faire en bidouillant cer- 
taines lignes : 

Valeurs cumulées. Ajouter une 
colonne au DIM qui devient DIM 
V(100,2). Cette colonne totalisera 
les valeurs de la colonne n° 1 (jadis 
Y). 

FOR N=l TO NP 
V(N,2) = V(N-1,2) + V(N,1) : NEXT 
Pour le tracé de la courbe on rem- 
placera dans le listing les V(N,1) par 
V(N,2) 

Origines non nulles. Au lieu de par- 
tir de zéro supposons que l'axe Y 
aille de 30 à 1 30. Posons ORY = 30 
(origine Y). DY vaut 130-30= 100. 
Le tracé des tirets ne change pas. 
Pour l'étalonnage de l'axe Y il suf- 
fira de modifier la fin de la ligne 
25230. 

...PRINT USING "###";N 
+ ORY; 

Reste le tracé de la courbe : 
Ligne 25370 : V( 1 , 1 ) * FY devient (V 
(l,l)-ORY)*FY 

Ligne 25390 : V(N,1)*FY devient 
(V(N,l)-ORY)*FY 
Ça marche aussi avec une origine 
négative. 

LES ECHELLES NON LINEAIRES 

Le cas fréquent (si j'ose dire) est une 
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échelle logarythmique. Par exemple 
pour représenter la réponse en fré- 
quence d'un appareil Hi-Fi entre 20 
et 20000 Hertz sur l'axe des X, il 
serait irréaliste de conserver une 
échelle linéaire, car une variation de 
50 Hertz vers 20 est importante mais 
infime vers 19000... 
Pour mieux comprendre la progres- 
sion logarythmique voici les LOG1 
de 500, 1000, 2000 et 4000 : 2,7 
3,0 3,3 et 3,6. Donc une progression 
linéaire sur l'axe de 0,3 à chaque 
fois que l'on double. On va donc 
allerdeLOG10(20)=l,3à LOG10 
(20000) = 4,3. D'où un DX = 4,3-1,3 
= 3,0, un ORX de 1,3 et le facteur 
FX toujours égal 580/DX. 
Tracer la courbe est très facile : 
2 lignes à modifier : 
25370 PLOT(LOG10(V(1,0))-ORX) 
*FX, V(1,1)*FY 

25390 DRAW(LOG10(V(N,0))- 
ORX)*FX, V(N,1)*FY 
En revanche beaucoup de change- 



ments pour graduer et étalonner 
l'axe X, car on ne peut utiliser un 
STEP PGX. Nous voulons inscrire les 
multiples de 2,5 et 10 : le plus sim- 
ple est de construire une ligne de 
DATA où ces valeurs vont être dou- 
blées, une fois en nombre, une fois 
en chaîne de trois caractères. 
25085 DATA 20," 20", 50, " 50", 
100, 100,500,500, 1000, "1 K", 
2000, "2 K",5000, "5 K", 10000, 
10K, 20000, 20K 
Un premier passage par STEP 2 
avec READ F pour tracer les tirets : 
251 10 PLOT(LOG10(F)-ORX)*FX,0 
:DRAWR 0,-5: NEXT 
Ensuite RESTORE 25085 pour tout 
lire 

25180 FOR N= 1 TO 10 : READ F: 
READ A$ 

25190 PLOT(LOG10(F)-ORX)*FX 
-12,-10:PRINT AS; 
Et le tour est (enfin) joué. Signalons 
au passage que l'auteur ne connaît 
aucun logiciel graphique du com- 



merce qui propose les échelles 
logarythmiques... Et là c'est gratuit, 
et en très peu de lignesB 



CONCLUSION 

Par la numérotation des lignes 
vous avez deviné que ce 
"module en 25000" sera sauve- 
gardé par SAVE "XY",A afin 
d'être récupéré par MERGE 
dans vos programmes. Ceci fait 
vous modifierez les valeurs des 
constantes et les légendes d'axes 
avant le SAVE de l'ensemble. 
Ce sous-programme facile à per- 
sonnaliser ne représente que 
1240 octets (REM compris), et 
conférera à vos programmes 
une option graphe directement 
accessible. 
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10 ' DEMO DE GRAPHE X-Y - Michel Archamb 

ault 7/87 - AMSTRAD CPC (tous) 

20 DEFINT I-N:DIM V(100,l) 

30 ' ENTREES DE VALEURS BIDON 

40 DATA 5,60,15,74,32,53,58,38,80,69,100 

, 45 , 115 , 39 , 128 , 52 , 140 , B9 , 160 , 74 , 175 , 51 

50 NP=11: ' Nombre de Points valeurs 

60 FOR N=l TO NP:FOR J=0 TO 1 

70 READ V(N,J) : NEXT: NEXT 

80 TITit="MICRO-INFORMATIQUE : Investiss 

ement + Consommable" 

90 TIT2*="PREMIER SEMESTRE 1987" 

100 GRAPH*="DEPEN87A": ' Nom du fichier e 

cran 

110 GOSUB 25000 

120 INK 0,1:INK 1,24:M0DE 1 

130 END 

25000 ' TRACE DES AXES 

25010 DEFINT I-N 

25020 INK 0,20: INK 1,0:MODE 2 

25030 ORIGIN 50,50 

25040 DRAW 580, 0,1: PLOT 0,0: DRAW 0,300,1 

25050 ' CONSTANTES 

25060 DX=180:DY=100 

25070 FX=580/DX:FY=300/DY 

25080 PGX=15:PGY=10- 

25090 ' REPERES SUR X 

25100 FOR N=0 TO DX STEP PGX 

25110 PLOT N»FX,0:DRAWR 0,-5: NEXT 

25120 ' REPERES SUR Y 

25130 FOR N=0 TO DY STEP PGY 

25140 PLOT 0,N«FY:DRAWR -5,0: NEXT 

25150 ' ETALONNAGE X 



25160 

25170 

25180 

25190 

25200 

25210 

25220 

25230 

N» 

25240 

25250 

25260 

25270 



TAG 

DATA JAN,FEV,MAR,AVR,MAI , JUN, JUL 

FOR N=0 TO DX STEP PGX*2 

READ A*:PLOT N*FX-12,-10sPRINT A*; 

NEXT 

' ETALONNAGE Y 

FOR N=0 TO DY STEP PGY 

PLOT -34,N*FY+8:PRINT USING "###"; 



(590-LT1 



(590-LT2)/2, 




NEXT 

TAGOFF 

' TITRES 

LTl=LEN(TITl*)*8:TAG:PLOT 
)/2,345:PRINT TIT1*; 
25280 LT2=LEN(TIT2*)*8:PL0T 
325:PRINT TIT2»; 
25290 ' LEGENDE AXE X 

25300 LX*="M I S":LLX=LEN(LX*)*B:PLOT 
(590-LLX)/2,-30«PRINT LX*; 
25310 ' LEGENDE AXE Y 

25320 LY*="KILO FRANCS HT" :HLY=LEN(LY* ) * 
16 : DEP=166+HLY/2 

25330 FOR N=l TO LEN(LY*) :PLOT -45.DEP-N 
«16 
25340 
25350 
25360 
25370 
253B0 
25390 
25400 
25410 
25420 
) :WEND 

25430 IF Rt="E" THEN SAVE GRAPH* ,B,&C000 
,&4000 

25440 ORIGIN 0,0 
25450 RETURN" 



PRINT MID*(LY*,N,1) ; 
NEXT: TAGOFF 

TRACE DE LA COURBE 
PLOT V(1,0)*FX,V(1,1)*FY 
FOR N=2 TO NP 
DRAW V(N,0)*FX,V(N,1)*FY 
NEXT 

FINAL et Enregistrement par E 
R*= " " : WH I LE R*= " " : R*=UPPER* ( I NKEY* 
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FORUM DES LECTEURS 



Voici une nouvelle rubrique dans CPC. Cet emplacement ne demande qu'à croître et c'est pourquoi nous lan- 
çons un appel à vous, lecteurs. En effet, nous vous proposons une participation active à un jeu de questions- 
réponses entre les lecteurs. Le système est simple : chaque mois, nous aurons une ou plusieurs demandes concernant 
un problème rencontré sur un logiciel du commerce, ou publié dans CPC ou même des questions concernant votre 
machine préférée : l'Amstrad CPC. Nous insistons sur le fait que la question doit être générale, ceci afin d'intéres- 
ser le plus grand nombre. Les réponses seront quant à elles publiées le mois suivant. Elles devront être les plus 
claires possible. 

Vous avez sûrement des quantités de questions à poser, c'est donc le moment de nous écrire en précisant sur l'enve- 
loppe : "CPC - Forum des lecteurs". Nous attendons votre courrier de pied ferme ! 



IINEOS- I l MEVJBTRRcTIl&Of TS-P 




** OFFRE SPECIALE * DISQUETTES AMSOFT * 



() 10 DISQUETTES 3" AMSOFT DONT 
() 20 DISQUETTES 3" AMSOFT DONT 
() 50 DISQUETTES 3" AMSOFT DONT 
() 20 CASSETTES C. 15 DONT 



CASS ETTES 
DE 



* NEHSTRAD ** 



1 NUMERO DE NEWSTRAD 

2 NUMEROS DE NEWSTRAD 

3 NUMEROS DE NEWSTRAD 
1 NUMERO DE NEWSTRAD 



. 240 FRS 
. 470 FRS 
.1130 FRS 
. 140 FRS 



Joindre 19 Frs pour -frais de port.Passibil ité de commander plu- 
sieurs lots. Cochez 1 'option désirée. Retournez ce bon et votre 
règlement à MICRO PASSION. 33 BIS RUE CARN0T . 77400 TH0RIGNY. 

Nom : Adresse : 

Ville: 



COUTEAU MEWST1AB 31 ]FR§ SEULEMENT 



Revendeurs, nous consulter. 



Newstrad, c'est un nouveau magazine magnétique mensuel destiné aux utilisateurs 
d 'AMSTRAD CPC. Edito, Info, Test softs, Test périph. Initiations au basic et au 
langage machine, Trucs et astuces, Aide aux aventuriers perdus, etc.. 
Newstrad, c'est aussi des softs d'enfer, rapides et originaux. Newstrad c'est 
plus de 300 Kilos octets par mois !! Alors abonnez-Vous ! I ! 12 numéros par an.. 

Pour 1 mais : K7.31 D. 55 FRS. Nom Envoyez votre règlement 

Pour 3 mois t 93 165 FRS. Adresse à hJJCRO-PASSION 

Pour 6 mois i 185 329 FRS 33 bis rue Carnot. 

Pour 1 an : 340 605 Frs. Ville 77400 TH0RIGNY. 

Cocher l'option désirée. Je m'abonne à partir du numéro () 1. () 2. () 3 



CPC N° 32 - Mars 1988 



Pour ceux qui utilisent la 
nouvelle version de 
SAVECRAN (CPC n° 30) ou 
le REPONDEUR 
TELEMATIQUE, la liaison 
série CPC MINITEL par le 

f>ort imprimante pose un 
mportant problème de 
connectique. En effet les 
nombreuses connexions et 
déconnexions des câbles 
risquent à plus ou moins 
long terme d'endommager 
le bord de carte du port 
imprimante. Je vous 

firopose donc de réaliser la 
iaison série CPC MINITEL 
par le port K7 de votre 
micro. Votre imprimante 
pourra rester connectée 
définitivement à son port 
d'attache. Les schémas 
suivants décrivent les 
modifications à effectuer 
pour un 464. C'est 
d'ailleurs sur ce type de 
CPC que le travail sera le 
plus simple. Pour un 6128 
ou un 664, cela sera un peu 
plus compliqué. (Pour ma 
part, j'ai modifié deux 464 
et un 6128 et tout 
fonctionne sans problème 
depuis plusieurs mois...!). 

ATTENTION I! Pour effectuer les 
modifications, il faut ouvrir le CPC 
alors si votre appareil est encore 
sous garantie attendez un peu. 



MATERIEL NECESSAIRE 

- 1 PRISE DIN 5 BROCHES 
FEMELLE (châssis) 

- 2 PRISES DIN 5 BROCHES 
MALE 

- 1 CABLE 3 CONDUCTEURS 

- 1 CABLE 8 CONDUCTEURS 

COMPOSANTS 
ELECTRONIQUES 

- C = 100 nanofarads... .(mar- 
ron noir jaune) 

- R = 2200 Ohms (rouge 

rouge rouge) 

OPERATIONS 

Un maximum de soin doit être 
observé pour mener à bien cette réa- 
lisation. Tout énervement ou précipi- 
tation est donc à éviter. Il est con- 
seillé de taper les modifications des 
routines machines de SAVECRAN 
nouvelle version et du REPONDEUR 
TELEMATIQUE avant d'entrepren- 
dre l'opération de votre CPC. 
Pour le CPC 464 (Se reporter aux 
figures 1 et 2) les cotes fournies pour 
l'implantation de la DIN et de ('IN- 
VERSEUR sont données à titre indi- 
catif et peuvent être modifiées à 
votre guise (attention, il n'y a pas 
beaucoup de place). 

1) Ouvrir votre CPC avec calme. 

2) Débrancher le connecteur 
clavier. 

3) Débrancher le connecteur 
magnéto. 



Liaison série CPC MINITEL 



par le port 



K7 



fig.l 



MAGNETO 

rr 



ttt-i 



u+ 



Alin.LED 




Clavier du CPC 464 
vu de l'intérieur 



Cable 8 fils a 
coller au fond 
du boitier 



Connecteur 
nagneto 



Connecteur 
clavier 



fig.2 

[Connecteur 
Inagneto vu 
jcote fils 

Bleu 



■Rouge 



_ + 



T 



Uert- 



[Inverseur a glissière 
'2 circuits 2 positions 




Prise din S broches 
vue cote soudures 



R 

T 1 



4) Présenter le clavier comme sur la 
figure 1 sur une table. 

5) En calquant la figure 3, percer 
le trou de la DIN (faire un avant-trou 
avec un foret de 3 ou 4 millimètres 
puis percer à 1 et enfin amener au 
diamètre final à la lime ronde). 

6) Effectuer la découpe de l'inver- 
seur à glissière (percer plusieurs 
trous puis ajuster à la lime). 

7) Monter la DIN et l'INVERSEUR 
(coller ou visser). 

8) Préparer le câble 8 fils et le col- 
ler au fond du clavier (voir fig. 1). 
Seuls 6 fils sur les 8 existants seront 
utilisés pour l'instant. 

9) Couper les fils BLEUS et VERTS 
du connecteur magnéto à environ 
2 cm de l'extrémité de celui-ci, puis 
câbler suivant le schéma de la figure 
2. C et R sont à souder directement 
sur la DIN. Le +5V et le -5V sont à 
prélever sur l'alimentation de la 
LED. Le + est le fil rouge, le - est le 
fil noir. Utiliser le câble 8 conduc- 
teurs collé au fond du boîtier pour 
effectuer la liaison entre la DIN 
femelle et les fils BLEUS ET VERTS 
coupés. Le raccordement des fils 
entre eux se fait par épissures sou- 
dées et isolées à l'aide de vernis. 

10) Après vérification du câblage 
refermer le CPC sans le visser. 

1 1) Confectionner le câble de liaison 
CPC-MINITEL (voir fig. 4). 

12) Après une dernière vérification 
du câblage passer aux essais. 

ESSAIS 

1) Mettre l'inverseur sur la position 
adéquate. 

2) Brancher le cable de liaison 

Si vous avez effectué les modifica- 
tions des routines vous pouvez revis- 
ser le boîtier du CPC sinon il faut 
revoir le câblage ou les modifica- 
tions logicielles. 

MODIFICATION D'UN 6128 
(Novices s'abstenir) 

Les modifications entraînent une 
manipulation du circuit imprimé ; il 
faudra donc veiller à ne pas endom- 
mager la nappe reliant le clavier au 
circuit (fragile). 

1) Ouvrir le CPC (toujours avec 
calme !!). 

2) Repérer le circuit intégré portant 
la référence 8255. C'est un gros cir- 
cuit à 40 pattes. (Voir fig. 5). 

3) Retirer les vis du circuit imprimé. 

4) Débrancher le fil de masse 
reliant le circuit au lecteur de disque. 

5) Retourner le circuit imprimé et à 
l'aide d'un cutter couper la piste qui 
arrive à la patte 25 du 8255 (fig. 7). 



10 



CPC N° 32 - Mars 1988 




LE PORT 
CASSETTE 



fig.3 



Implantation de la DIN et de l'inverseur 



Frise DIN 
fenelle 5 
broches 



ET 



Christian MATHIS 




MINITEL 



30 
50 



Hih~rà— 



4— H 



<" 



CPC 4G4 vu cote 
gauche 



Inverseur a glissière 



61 Revisser le circuit imprimé. 

7) Repérer les pattes 7, 1 2, 25 et 
26 du 8255. 

8)Câbler comme sur la figure 6. 

9) Souder le condensateur entre les 
broches 2 et 3 de la DIN 
1 0) Refermer le boîtier sans le visser. 
1 1) Confectionner le câble de liaison 
(fia. 4). 
12) GOTO ESSAIS 

MODIFICATIONS SAVECRAN 
(Nouvelle version CPC n° 30) 

10 MEMORY &9FPF 

20 LOAD"SAVECRAN" 

30 AD = &A001 

40 FOR 1= 1 TO 6:READ A$:POKE AD, 

VAL ("&" + A$):AD = AD+l: 

NEXT 

50 POKE &A1B6,&F6 

60 FOR I=&A1BD TO &A1BF: 

POKE I,&1F:NEXT 

70 DATA 06,F6,3E,20,ED,79 

80 POKE &A22E,&C9 

90 POKE &A249,&62 

100 SAVE "SAVECRAN. BIN",B, 

&A001,&6A3 

110 END 

MODIFICATION SER1.BIN 
(Répondeur) 

Si vous possédez la routine machine 
SER1.BIN modifiée (CPC 22 page 
37 article sur fond bleu) tapez en 
ligne 10 A = &193 



fig,4 



Cable de liaison CPC MINITEL 



fig.S 



Brochage du 8255 



Broche 25 
input data 



Prises DIN Maies 
cotes soudures 



Cable 3 
conducteurs 





» - - 8255 l + 

■ » 


Broche 12 
output data 



10 A = &179 

20 MEMORY &9FFF:LOAD"SERl . 

BIN" 

30 AD = 40960:FOR 1 = 40960 TO 

41036:READ A$:POKE l,VAL("&" + 

A$):NEXT 

40 FOR 1 = 41232 TO 41500 

50 IF HEX$(PEEK(I)) = "40" AND 

HEX$(PEEK(l+l)) = "AO" THEN 

POKE l,&42 

60 NEXT 

70 FOR 1 = 41232 TO 41500 

80 IF HEX$(PEEK(I)) = "17" AND 

HEX$(PEEK(I+1)) = "17" THEN POKE 

l+l,&C9:l = 41500 

90 NEXT 

100 SAVE"SER1.BIN",B,&A000,A 

101 END 

1 10 DATA D5,E5,F3,21,00,A 1,36,00, 

06,07,0E,00 

111 DATA23,1F,DC,21,A0,CB,16,10, 

F7,23,79,E6 



120DATA01,1F,CB,16,23,36,01,18, 

04,F5,0C,F1 

121 DATAC9,21,00,A1,01,00,F6,16, 

0A,3E,00,CB 

130 DATA 1E,1F,1F,1F,ED,79,CD,42, 
A0,23, 15,20 

131 DATAF0,37,E1,D1,FB,C9,C5,01, 
6E,00,0B,78 

140 DATA B1,20,FB,C1,C9 

MODIFICATION DU BASIC 
(Pour le REPONDEUR) 

En ligne 80 du BASIC ajouter OUT 
&F600,32 

C'est fini. Si quelques points vous 
paraissent obscurs laissez-moi un 
message sur mon répondeur 
(29-60-00-10) mais soyez assez 
précis dans vos questions. 
BONNE BIDOUILLE. 



INFORMATION A PROPOS 
DE SAVECRAN (CPC n° 30) 

Certains d'entre vous ont constaté un 
plantage au moment d'un hard copy 
(fonction "I" de SAVECRAN!. Ceci n'est 
pas dû à un problème logiciel, mais à un 
mauvais câblage de la prise DIN de 
votre liaison CPC MINITEL. 
REMEDE : assurez-vous que les points 2 
et 4 de votre prise DIN ne sont pas 
strapés. 



fig.6 



MODIFICATIONS POUR UN 6128 



7^ 
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1 — •l.S 

DIN fenelle 

vue cote soudures 



+J 
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D 



i 8255 



^•25 
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fig.7 



8255 vu de dessous 

quand le circuit 

ifipriflé est retourne' 
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Piste a couper 
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• Marque 

et image de marque 

Tout d'abord merci de vos témoi- 
gnages de sympathie. Cela ne pou- 
vait que nous faire plaisir étant 
assez inattendu. 

Il va sans dire que, n'en déplaise à 
Marion Vannier PDG d'AMSTRAD 
et à son staff, nous n'avons pas l'in- 
tention de modifier notre titre de 
presse. Nous sommes déjà très éton- 
nés qu'à l'époque aucune tentative 
n'ait été effectuée pour nous interdi- 
re ! 

Nul n'ignore maintenant que le PDG 
d'Amstrad est liée aux nouvellles 
revues (d'autant que l'INPI révèle 
que c'est Amstrad qui a fait le dépôt) 
et entend en contrôler l'information 
(Sic SVM !). 

Au nom de l'image de marque 
d'Amstrad ! 

Seulement un journaliste du cru Ams- 
trad manie, la vulgarité, la désinfor- 
mation et le dénigrement sur ses con- 
currents sans signer son article. Sûr 
que Marion Vannier a dû en pâlir ! 
Au nom de l'image de marque bien 
sûr ! 

Alors que dans SVM Marion Van- 
nier expose sa position sur la presse, 
c'est dans l'un des journaux dont elle 
contrôle l'information qu'elle donne 
une version différente de ses propos. 
C'est plus facile que de répondre 
dans SVM où les journalistes con- 
naissent leur sujet ! 



• AURALOG : votre compatible PC va 
pouvoir vous épauler dans un domaine 
assez complexe : l'aide à la décision. 
Grâce à un logiciel intitulé AURA-PREVI, 
cette grande société offre à tout décideur 
la modélisation d'un problème débou- 
chant sur un ensemble de scénarios pos- 
sibles. Le développement du programme 
à l'aide de Prolog a permis d'intégrer 
des concepts de l'intelligence artificielle. 
Pour tout renseignement : AURALOG - 
22, rue Emile Baudot -91 120 Palaiseau. 



Notre Direction écrit à Marion Van- 
nier PDG d'Amstrad. 

Madame, 

La presse n'appartient pas seulement aux 
propriétaires des titres, Amstrad dans 
votre cas. Elle appartient aussi à ses lec- 
teurs. Ce sont eux qui sont les actionnai- 
res de la presse, cela en versant les quel- 
ques francs pour l'achat de leur mensuel. 
Ce sont eux qui font l'indépendance de 
cette presse et assurent à notre pays une 
structure d'information indispensable. 
Encore faut-il que chacun dénonce les 
raids sur les journaux indépendants. C'est 
le rôle de ceux pour qui l'information 
représente une responsabilité et pas seule- 
ment un gagne-pain ! 
A la veille de l'application de l'Acte uni- 
que européen, chacun doit aider la presse 
à se défendre et à vivre au nom du plura- 
lisme indispensable à notre société. Il en 
est de même dans la presse spécialisée. 
Dans SVM, vous affirmez que les titres 
AMSTRAD sont liés à vous. Ceci se con- 
firme par le fait que Amstrad PC mag est 
déposé à l'INPI par votre société, pour ne 
citer que celui-là. Vous affirmez vouloir 
contrôler l'information, ce qui peut paraî- 
tre surprenant. Sans doute au nom de 
l'image de marque d'Amstrad. 
Il y a tout de même un chemin entre l'épi- 
cerie et la presse ! 

Sous couvert d'une rencontre avec le 
rédacteur de l'une des revues mentionnées 
vous affirmez désormais le contraire de vos 
propos dans SVM. Soit ! Après avoir tenté 
de faire supprimer notre titre AMSTAR, 
vous prêtez votre nom à un transfuge 
d'Hebdogiciel pour mener une violente 
attaque, contre toute déontologie, en des 
termes vulgaires, avec des informations 
non vérifiées, cela contre notre société et 
nos titres. 

Sans doute au nom de l'image de marque 
d'Amstrad. 

Si tel est le cas, vous n'avez pas fait le bon 
choix, car ce qui fait l'image de marque 
de votre société et de vous-même, c'est 
bien la presse. Toute la presse. Mais pas 
la vôtre ! 

Recevez, Madame, mes salutations distin- 
guées. 

S. F. 



• LE LECTEUR PACE : vous trouvez 
les disquettes 3" trop chères ? Vous avez 
totalement raison. Lorsque l'on voit le 
prix des 5" (de 2 à 7 francs), on ne peut 
qu'enrager de devoir dépenser au moins 
25 francs pour une misérable disquette. 
N'y a-t-il point de recours ? Si bien sûr : 
il ne reste qu'à adapter un deuxième lec- 
teur au format adéquat. Le lecteur 
5" 1/4 présenté ici est de la marque 
Pace. Son habillage est constitué d'une 
coque métallique de bon aloi. Sur la face 



avant, on remarque une led signalant la 
mise sous tension. A l'arrière, deux inter- 
rupteurs se disputent la place disponi- 
ble ; l'un est utilisé comme commutateur 
ON/OFF et l'autre permet de sélection- 
ner le mode 40 ou 80 pistes. 
Signalons également que le lecteur est 
livré avec une disquette contenant un 
logiciel de transfert des fichiers MS-DOS 
(ou PC-DOS) vers le format CP/M +.11 
ne reste plus qu'à ajouter qu'il existe un 
modèle PCW et que le lecteur est dispo- 
nible chez Wings Micro Diffusion - 57, 
rue de Charonne - 75011 Paris 
(2390 F TTC). 




GAGNER AU LOTO 

un rêve qui peut devenir 
réalité avec 

LOTO - MATIC 

le programme qui vous révèle 

tout ce que vous devez savoir 

pour : 

• trouver facilement les numéros 

qui ont le plus de chance de sortir 

• établir scientifiquement 

les grilles les plus performantes 

grâce aux tests du Lotoscope 

• contrôler sans peine 

les résultats de vos jeux 

Editions écran et imprimante 

Documentation détaillée 

+ CADEAU contre 4 timbres 

INFORM ATIC Applications 

B.P. 78 -67800 BISCHHEIM 

Tél. 88.33.58.85 
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• CRL S ® n voiture avec Koad Warrior, 
un jeu d'arcade qui vous met au volant 
de monstres allant de la Ferrari à la 
Volswagen. Puisque de nombreux 
gêneurs vous entourent, votre armement 
est conséquent. La simulation respecte 
même les pannes d'essence et il faudra 
avoir un œil sur la jauge pour ne pas finir 
le jeu trop rapidement. (Sortie en mars). 





• MBC : cette toute nouvelle société 
française (oui monsieur I) annonce trois 

I logiciels d'aventures sur Amstrad : Fro- 
zarda, Rat Connection, Marmelade et 
Transformateur 3000, un utilitaire de 
copie de cassettes à disquettes. 



ENFIN UN BUREAU POUR VOTRE 
ORDINATEUR A 490 F T.T.C.* 

• Structure rigide en bois de 35 kgs • Large 
espace disponible • Espace de rangement pour 
cassettes • Belle finition d'ensemble. Peinture 
anti-reflets, disquettes et papier • Livré en kit. 
Grande facilité de montage • Dimensions. Hau- 
teur : 80 cm. Longueur : 77 cm. Profondeur : 
61 cm. 

ECRAN 




Frais de port en sus. 



REVENDEURS, NOUS CONTACTER 

- BÔ1TM"CÔM MANDE A~RETOT)ffNTER"A _ : 
S.N.P.P., 39, rue Lafayette 
75009 PARIS - Tél. : (1) 48.74.40.61 

Nom Prénom 

Adresse 

Je commande bureau (x) pour ordinateur personnel au prix unitaire de 

490 F T.T.C. 

Ci-joint mon règlement par chèque augmenté de 1 60,00 F de frais de port par article, 

soit au total de T.T.C. 
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PLUS 

JAMAIS 
CA 



FICHIER 



SIMPL 




.Fichier de 65000 caractères 
.256 caractères aaxi par ficbe 
.De i à 99 zones par fiche 
.Manipulation du fichier à travers des 
"FORMULAIRES ECRANS" paramétrables 
.Modlficatior-Visualisat ion-Suppression 
Sur Sélection MONO FICHE .MULTI CRITERES, 

Sur l'ensemble du FICHIER 
Fonction de tri du Fichier 

FICHIER SIMPLE 
répond à TOUS vos besoins : Fichier stock 
Fichier clientèle, documentaire ,etc ... 



CPC 6126 
200 Fr 



464-D01.664, 8256 
Pour bientôt 



Rens et Doc contre 2 timbres 
Coanande accorpagnée de votre règlement 

H.L.C des Combrailles BP 03 

Montaigut 6Ï70C St Eloy Les Mines 

(Rens :Roberto Tel 16.1.^5.92.81.25) 
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• CARRAZ EDITIONS : nous 
annonce un logiciel très original (dans 
son sujet) le Sida et nous. Ce programme 
a été conçu en liaison avec des spécia- 
listes de la maladie, ceci afin de coller 
à la réalité scientifique. En effet, il s'agit 
d'une méthode de prévention fonction- 
nant sur un système d'apprentissage par 
l'erreur. De plus, il existe une autre rai- 
son pour acheter ce logiciel : l'argent 
récolté sera reversé intégralement à la 
Recherche contre le SIDA. (Sortie du 
logiciel en avril). 
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DEBUGGER «mt fut pour 
celui qui programme en 
langage machine ou qui 
envisage de s'y lettre. 
DEBUGGER c'est : 
*Un désassembleur . 
«Un éditeur: 256 octets 
directe»ent accessibles 
«Un relogeur qui permet 
de décaler un programme 

s s'occuper ou presque des modifications à faire 
pas à pas permettant de visualiser, instruction 

es instruction ,1e déroulement de vos programmes 



san 
«Un 
apr 
«Ainsi que 19 autres fonctions 



Vous désirez un 
logiciel de DAO 
qui exploite la 
total ité du CPC 
6128 ? 
GRAPH-SET c 'est 




«Une feu i 1 le de 
trava 1 1 j usqu 'à 
5 écrans d i rec- 
tement accessi- 
bles * Un générateur de sprite * Des outils de des- 
sin ( aérographe , arc de cercle, ...) « Des fonctions 
graphiques (rotation, incrustation, copie, inversions, 
. . . ) * Une loupe * Le mul t i f enét rage * Une fonction 
"UNDO" * Une sortie sur imprimante paramétrable (du 
timbre poste jusqu'au poster) * ... 
GRAPH-SET est simple d'emploi ( icônes , sous-menus ) . 



ricin» us 
ncita us ! 
Mcilttii. 
'.tttUh'.tli'.'. 

ncitti .» 

:ntmw.: 

ricittl w : 
nditti 1b. 



M 41 il il 11 11 41 

Il 

mm* 

M « <1 11 11 <l î! 

liiiiiiiiiiîjgiss 

îiiinMMàialBiiiMM 




ncrm : 
pnn : 1 



* Réparer 
octet par 
celles en 



1 'accès direc 
chaque octet 
une disquette 
ainsi.de 

* Récupérer 
programme eff 

* Cacher , loca 
ser un f lch ie 

.modifier un catalogue * lire ou rectif 
octet le contenu d'une d i squet te , net to 
format DATA d'une manière sure et rapi 



DISCKHELP est 
de d 
per 



mon i teur 
quette . I 1 



un 
1 s- 
met 
t à 
d' 

et 

n 

acè 

1 1- 

r 

1er 

yer 

de. 



Cl-, ASSISTANT est un 



logiciel de dessin de 
circuits imprimés. 

Tai 1 le 600 . 540 mm 
Simple, double l'ace 
« 2 échelles * Sortie 
sur imprimante * Bi- 
bliothèque « Généra- 
teur de symboles * 2 
versions. 




Ces quatres logiciels sont cent p-our cent en lan- 
gage machine ut sont entièrement résidents. 



>«o__ 



Nom. 



Prénom . 



Adresse. 



Ville. 



Veuillez me faire parvenir 



I — I Un* documentation ( joindre 3f70 en timbre) 



D 
D 
D 
D 
D 



DEBUGGER 
GRAPH-SET 
DISCKHELP 
Cl Assistant 
Cl Assistant + 
frais de port 20f 



6128/664 295 f 

6128 uniquement 375 f 

6128/664 175 f 

6128 uniquement 550 f 

800 f 
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• LORICIELS : qu'y a-t-il de commun 
entre Armand Jamot et Loriciels ? Les 
chiffres et les lettres bien sûr. Ce logiciel 
a été présenté lors de la 13' coupe des 
champions qui se déroulait du 28 au 3 1 
janvier dans la principauté de Monaco. 
Les hits nouveaux sont arrivés, le tome 6 
vous propose trois programmes d'ar- 
cade : The last mission, Flash et un logi- 
ciel inédit Atomic Drive, une sorte de 
Pac-man automobile. 

Engagez-vous I Loriciels recrute trois 
programmeurs et deux graphistes. Quel- 
ques conditions requises : savoir pro- 
grammer en C et/ou en assembleur, con- 
naître le marché de la micro-informatique 



et, enfin, posséder une imagination 
débordante. Envoyez vos CV à M. Mar- 
chand - LORICIELS - 81, rue de La Pro- 
cession - 92500 Rueil Malmaison. 




scia ri ET 



• SAARI : deux nouveaux logiciels de 
paie voient le jour. Une version Stan- 
dard (1.0) et une version Major (3.0). 
L'ergonomie, la facilité d'utilisation ont 
été augmentées grâce à la couleur et au 
multi-fenêtrage. Ces programmes tour- 
nent avec tout compatible MS.DOS pos- 
sédant 640 Ko de RAM et équipé d'un 
disque dur. (Prix : version Standard 
4900 F HT - version Major 9500 F HT.) 




• LA MARQUE JAUNE : vendredi 22 
janvier, gare de l'Est. Un train très par- 
ticulier stationnait en effet puisqu'il était 
composé de voitures bleues à l'effigie de 
la compagnie des Wagons-Lits. Agatha 
Christie et Hercule Poirot n'étaient pas 
loin. Ce cher Hercule aurait très bien 
évolué dans ce milieu : ici tout n'était 
qu'ordre et beauté, luxe, calme et 
volupté. Mais puisque même les rêveries 
nostalgiques ont une fin, un homme chut 
d'un wagon. Ce dernier resta impassi- 
ble, insensible au drame qui se dérou- 
lait sous ses fenêtres dont le pourtour 
était encadré d'un rideau qui, ma foi, 
aurait fait belle figure dans un salon ély- 
séen. Presque aussitôt, un attroupement 
se forma, clés photographes jaillirent de 
nulle part ou d'à côté et se mirent à fla- 
sher à l'aide d'instruments évoquant 
l'élégance subtile d'un projecteur de 




rayons "X". Un policier que l'on aurait 
pu croire plus vrai que nature s'il n'avait 
été aussi faux qu'un autre qui le serait 
tout autant, agitait en vain son imper- 
méable gris et ses mèches blondes. En 
vain, puisque à peine écroulé, l'homme 
mort au quai ne respirait même plus. Les 
brancardiers firent alors leur office et 
transportèrent le corps vers un monde 
meilleur. 

Nous nous installâmes confortablement 
autour de notre table (réservée certes, 
mais qui allait s'enhardir au cours de la 
soirée). Sans même un signe de la main, 
le convoi se mit en marche d'un pas tota- 
lement circulaire. A l'intérieur des 
wagons et particulièrement au piano 
bar, tel un surplus de vapeur dans une 
cocotte-minute, l'angoisse pressurait l'at- 
mosphère dans une proportion seule- 
ment appréciable par qui a eu un jour 
la révélation des calculs thermodynami- 
ques concernant l'état d'un système 
fermé. Cette sourde étreinte d'un doute 
exacerbé se manifestait par le tremble- 
ment nerveux qui agitait mon genou 
droit. Mille questions se précipitèrent 
dans ma tête à la manière de particules 
sub-microcospiques projetées sur un 
écran par la force conséquente et non 
moins magnétique d'un cyclotron. Je 
compris plus tard que nous n'étions pas 
embarqués pour le tournage d'un 
remake de meurtre dans l'Orient Express 
version moldo-slovaque, mais bien dans 
une séance de thérapie ludique et collec- 
tive que les anglophiles acharnés persis- 
tent à appeler "Murder Party". Un 
détour par les caves d'une marque de 
Champagne célèbre, dont le nom s'il doit 
rester anonyme n'en présente pas moins 
une forte homonymie avec le mot 
"merci", n'apporta pas grand-chose à 
l'enquête, si ce n'est la satisfaction gou- 
lue a'inbiber d'encore un peu plus d'al- 
cool mon organisme presque saturé. 
Malgré mon grand trouble, je réussis à 
saisir quelques bribes d'un discours 
cohérent dans le brouhaha permanent 
qui s'organisait comme un défilé de 
CGTistes marchant de Bastille à Nation. 




Dès lors, l'annonce d'un nouveau pro- 
duit de la société Cobra Soft m'apparut 
comme une illumination dans ce délire 
baroque : il s'agissait de "La marque 
jaune" dont le titre a lui seul fait perler 
une larme d'émotion sur la joue ridée du 
bédéphile qui se respecte. 
Ce programme comprend en son sein un 
pochoir délicatement prédécoupé dont 
l'utilisation malveillante va encore pro- 
curer un surcroît d'activité aux les per- 
sonnes chargées du nettoyage de nos 
murs citadins. Les éditions sus-nommées 
auraient également du carton dans leurs 
projets puisque l'on parle d'un jeu de 
table (les Ripoux) organisé autour du 
thème ci-avant mis entre parenthèses. 
Dernier somme (euh, produit I) en vue : 
l'organisation de jeux de rôle, grandeur 
nature et tout, et tout.. Ici Blake, à vous 
Mortimer. 
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UN 

NOUVEAU 

PATRON 



Entré aux Editions SORACOM en 1 985, Gérard PELLAN s'est 
particulièrement occupé du service commercial revendeurs. 
De nombreux lecteurs eurent l'occasion ces deux dernières 
années de le rencontrer dans divers salons. 

En 1987, il entre dans la société Bretagne Edit'Presse et est 
chargé du développement de la vente par correspondance. 
Fin 87, il devient actionnaire aux côtés de Florence MELLET 
et Sylvio FAUREZ, ce dernier gérant depuis la naissance de 
la société. 

Depuis le 1er janvier 1988, Gérard PELLAN est officiellement 
"le Patron" de Bretagne Edit'Presse dont il est nommé gérant. 
S. FAUREZ reste chargé au sein de la société du 
développement de la gestion presse et contentieux. C'est le 
4e collaborateur des Editions SORACOM à devenir chef 
d'entreprise. 



Enfin pour votre CPC 6128 

VECTORI A 3D 

Un puissant logiciel qui permet de réaliser 
en quelques minutes des dessins en 3 dimensions. 




Conçu pour répondre aux besoins 
des plus exigeants. VECTORIA 3D possède 
une panoplie complète d'outils simples à uti- 
liser mais réanmoins d'un rendement pro- 
fessionnel. 

L'affichage simultané des trois vues 
de base et du résultat tridimensionnel (qua- 
tre fenêtres de taille équivalente à l'écran) 
permet une lecture aisée ainsi qu'un repé- 
rage rapide d'erreurs éventuelles. 



VECTORIA 3D c'est aussi des fonc- 
tions puissantes: translation, rotation, zoom, 
cercles ou ellipses, tracé de rectangles, joint, 
optimisation, annulation de la dernière fonc- 
tion, assemblage d'objets en scène, etc. 
Impression, soit des quatre vues, soit d'une 
scène sur imprimante. 



PRIX: 410 F TIC 

Disponible sur compatible PC :410F 



BON DE COMMANDE : Veuillez retourner ce bon accompagné de son règlement par chèque 
postal ou bancaire pour un montant de 410F TTC + 30F(portetemballge)à lordrede M.M.C. 

MMC 1, rue Lincoln 75008 Paris Tél. (1)42561282 

NOM PRÉNOM 



D 



ADRESSE . 



sssfe 



v<*t** 



4 '■ % : i 




EXPLOITEZ 

VOTRE 
AMSTRAD 

le livre + la cassette 

ÎUO K FRANCO 

Jeux - Gestion 

Education - Domestique 

Impression de documents 

Un best-seller 

Bon de Commande 

à renvoyer à STAMP DIFFUSION, ] 7, rue Russeil - 44000 NANTES 

Exploitez votre Amstrad. 103 F - Port gratuit. 

Nom Prénom 

Adresse 

Ci-joint chèque de 103 F. 



B.T.S. 

INFORMATIQUE* DE GESTION 



Diplôme d'Etal 



Avec ou sans Bac, vous pouvez, dès maintenant, préparer tran- 
quillement, chez vous, le B.T.S. Informatique de Gestion. Il ne 
demande pas de connaissance informatique au départ et vous donne, 
en 2 ans environ, la qualification professionnelle pour devenir 
Cadre Informaticien. En option, stage pratique sur ordinateur. 



B.T.S. 

BUREAUTIQUE ET SECRETARIAT 

Diplôme d'Etat 



Vive ce nouveau B.T.S. ! Il introduit les matières de pointe telles 
que le Traitement de Texte et permet aux secrétaires d'accéder à 
des postes de haut niveau. 3 options : Secrétariat de Direction, 
Secrétariat Trilingue, Secrétariat Commercial Bilingue. 
Avec ou sans Bac, ce diplôme, fort apprécié des Entreprises, se 
prépare très bien par correspondance, en 2 ans envirojr^— - — ' 

B.P. Informatique (Diplôme d'Etat) \_ 

Programmeur sur micro-ordinateur - Analyste Programmeur 

Cours Général d'Informatique - Bureautique /Traitement de Texte 

* Nos préparations aux Examens d'Etat bénéficient de notre GARANTIE-ETUDES. 



INSTITUT PRIVE : 
D'INFORMATIQUE: 
ET DE GESTION 

7, rue Heynen 

92270 Bois-Colombes: 



Brochure gratuite n° Z 4911 
Nom 

Prénom 

Adresse 



CODE POSTAL 



-I I I 1_ 



VILLE. 



(1) 42 42 59 27 i 



LE PROGRAMME 
MISSIVE 



Précisons-le d'emblée, 
MISSIVE n'est pas un 
traitement de textes, mais 
bien plutôt un éditeur de 
textes. Cela n'enlève rien à 
ses mérites... 
Il a été conçu en milieu 
scolaire et longuement 
testé et optimisé. C'est un 
logiciel modeste, mais 
équilibré et riche de 
possibilités, conçu pour 
répondre à un triple 
objectif : 

1 ) Permettre à des enfants 
une véritable initiation au 
traitement de textes, 
comme le recommandent 
les Instructions Officielles. 

— mais travailler en 80 
colonnes ; 

— voir son texte à l'écran 
comme il sera imprimé ; 

— travailler sur des textes 
de volume raisonnable ; 

— permettre un journal 
scolaire. 

2) Permettre de gérer le 
courrier de l'école ; 

— information des 
parents ; 

— relations avec les 
partenaires de l'école ; 

— courriers administratifs. 



3) Permettre de faciliter les 
préparations de classe. 

— préparation de fichiers 
de texte pour des logiciels 
pédagogiques ; 

— éditer des documents 
bien présentés pour les 
leçons. 



• Objectif complémentaire, tirer parti 
des possibilités de l'imprimante 
MANNESMAN-TALLYdu plan I.P.T. et 
ce en disposant des accents (redéfinis), 
malgré les sept bits que l'on sait... 
C'est pourquoi il est quand même per- 
mis de dire que MISSIVE est un logiciel 
de type professionnel, dans la mesure où 
il permet d'atteindre très correctement 
ces objectifs. 

Il peut donc se révéler utile aussi dans 
un cadre domestique. Il sera possible de 
traiter un peu plus que les listes de com- 
missions... 

La notice 



Il est un fait qu'entre l'utilisation d'un 
programme et la description de cette uti- 
lisation existe un décalage, qui fait 
paraître lourde ou simpliste toute expli- 
cation un peu détaillée. Triste sort que 
celui d'un mode d'emploi, condamné à 
subir l'ingratitude condescendante de 
ceux là qui hier encore l'appelaient à 
leur secours. 

Mais voilà, comment parler de pédago- 
gie, si l'on néglige de parcourir au moins 
une fois, avec l'utilisateur novice, les che- 
mins qui permettront de bien posséder le 
logiciel ? 

C'est pourquoi la notice de Missive a été 
soignée, c'est pourquoi elle est longue. 
Espérons qu'elle permettra à l'utilisateur 
du programme de s'en faire un allié 
fidèle. 

Configurations 



CONFIGURATION MINIMALE 
Il est possible d'utiliser Missive, moyen- 
nant quelques adaptations détaillées en 
annexe, avec un CPC 464 tout seul, sans 
lecteur de disquettes et sans imprimante. 

CONFIGURATION STANDARD 
Le programme a été conçu sur un CPC 
464 avec DDI et imprimante MANNES- 
MAN. 



L'utilisation du lecteur de disquettes per- 
met au logiciel de donner tout son poten- 
tiel. 

LA DISQUETTE 

Elle devra contenir les fichiers suivants : 

a) CHARGEUR. BAS pas indispensa- 
ble... 

b) PRESENTA.BIN ,c'est l'écran de pré- 
sentation constitué avec le programme 
lui-même. 

c) MISSIVE. BAS , c'est le programme 
principal. 

d) REDEFCAR.ASC ,c'est le programme 
de configuration de l'imprimante et d'ac- 
centuation. 

e) DELETE .ASC ,pour effacer Redefcar. 
mis et gagner de la place en mémoire. 
On lance le programme par RUN 
"CHARGEUR" ou RUN "MISSIVE". 
Les fichiers produits par MISSIVE por- 
tent automatiquement l'extension .MIS . 
Sous CP/M on fera des ravages avec 
*.MIS. 

REMARQUE IMPORTANTE : 
De façon à alléger la mémoire, le listing 
de MISSIVE a retrouvé la ligne de la 
façon suivante : 

Suppression des lignes de REM. 
Utilisation du POKE &AC00,1 pour sup- 
primer les blancs inutiles. On le frappe 
en début de saisie. 



MISE EN ROUTE 

ET CONFIGURATION 



Le programme peut être lancé après un 
menu, une page de présentation, ou tout 
simplement par : 
RUN "MISSIVE" 

La liste principale appelle le chargement 
des RSX, puis le chargement d'exploita- 
tion et l'effacement du programme 
annexe "REDEFCAR. MIS" destiné à 
préparer le pavé numérique avec tous 
les accents et à définir les codes pour 
l'imprimante utilisée. 
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Ceci fait, en peu de temps, les fenêtres 
du programme s'affichent, d'abord la 
grande fenêtre d'édition avec ses vingt 
lignes de points, puis la fenêtre de com- 
mande, au bas de l'écran. 

LE MOT DE PASSE 
Un mot de passe conditionne l'accès au 
programme. Il faut le taper sans erreur, 
sinon il est refusé. A la différence des 
autres messages, il n'y a pas d'écho- 
écran lors de sa frappe. L'utilisation du 
mot de passe, très pédagogique, plaît 
beaucoup à des enfants. 
Le mot actuel est LITTERATURE*, l'étoile 
représentant un blanc obligatoire. La 
modification du mot de passe se fait en 
ligne 285. 

LE MENU GENERAL 
Sésame ayant fait son office, apparaît 
dans un grondement de tonnerre le menu 
général : 

INTRODUIRE LE TEXTE -T- 
REDIGER LE TEXTE -R- 
ACCES SUR LE DISQUE -A- 
SAUVEGARDER LE TEXTE -S- VI- 
SUALISER LE TEXTE -V- 
AZERTY <-> QWERTY -C- 
L'appui sur les lettres-commandes 
déclenche immédiatement la fonction 
désirée. 

Pour ceux qui en ont déjà assez, signa- 
lons qu'il existe des commandes cachées, 
en particulier : 

— La Fin du programme est obtenue en 
tapant la touche [F]. 
A bientôt... 

Continuons pour les autres. 

Configuration 

du CLAVIER 

ET DE L'IMPRIMANTE 

LE CLAVIER 

L'appareil utilisé pour mettre au point 
MISSIVE, un CPC 464 issu des premiè- 
res vagues de la marée a un clavier 
QWERTY. D'aucuns préférant azerter, 
il est donc possible, en tapant [C] 
(comme clavier) d'obtenir un sous-menu 
d'adaptation. 
Répondre M] azertyfie. 
Répondre [2] qwertyfie. 
Le retour au menu général est automati- 
que. 

L'IMPRIMANTE 

Les commandes sont directes : 

Frapper [P] donnera des caractères Pica. 

Frapper [E] donnera des caractères 

ELITE. 

La sonnerie signale le changement et 

puis... 

do you see the leftmost > > P< <?(Y/N) 

et aussi le mot > > P< <? à droite (O/N). 

C'est du NENESSE-DOS... mais restons 

sérieux. 

Il ne nous reste plus qu'à partir vers de 



CPC N° 32 - Mars 1988 



nouvelles aventures pour découvrir les 
merveilles cachées par un si beau 
menu...! 

MODE REDACTION 

Il s'agit là, bien sûr, du module le plus 
riche du programme. La plupart des 
commandes s'effectuent directement à 
partir du clavier, sans passer par un 
menu, pour des raisons évidentes de 
rapidité. Leur maniement se révèle assez 
simple à l'usage. Il est néanmoins néces- 
saire d'en avoir une bonne vue d'ensem- 
ble pour exploiter toutes les possibilités 
du logiciel. 

Opérations de situation 



L'éditeur comprend trois pages de vingt 
lignes de soixante-quinze caractères, soit 
quatre mille cinq cents localisations pos- 
sibles. 
Les opérations de situation concernent : 

— la page-écran qu'il est possible de 
faire commencer, au choix par les lignes 
numérotées entre 1 et 40. Tout le texte 
peut ainsi être déplacé et visualisé ; 

— la ligne d'édition qui, selon le même 
principe, peut parcourir toute la page- 
écran ; 

— le curseur de ligne, qui se déplace sur 
toute la ligne d'édition. Il faut remarquer 
ici que l'éditeur de MISSIVE, à l'image 
de celui du CPC n'est pas plein écran. 

• Opération d'accès 

D'emblée, le menu d'accès demande : 

— le numéro de la page-écran : répon- 
dre entre 1 et 3 ; 

— le numéro de la ligne choisie : répon- 
dre entre 1 et 20. 

Il faut valider chaque réponse par 
"ENTER". 

Le texte demandé ou la page vide à rédi- 
ger s'affiche alors en fonction de ces spé- 
cifications : 

— la ligne demandée s'affiche en inver- 
sion viaéo ; 

— le curseur de texte, représenté par 
une petite barre noire, se positionne sur 
le premier caractère de la ligne. 

• Position dans la ligne d'édition 
L'impression des caractères se fait à 
l'emplacement du curseur et entraîne 
automatiquement le déplacement de 
celui-ci à l'emplacement du caractère sui- 
vant. 

Le déplacement du curseur de texte se 
fait en transparence et n'affecte pas ce 
qui est écrit sur la ligne mais le souligne 
simplement. 

— la flèche [ — ] du pavé numérique 
déplace le curseur vers la droite. Cette 
touche est à répétition, c'est-à-dire qu'il 
suffit de la maintenir pressée pour que 
le curseur continue son déplacement. 




LE MULTI-SPECIALISTE 
DE LA MICRO INFORMATIQUE 

VV/a\V/a\\7/' '' sur ^ n * WBaUï t 





COLLECTIVITE 

ALLO DANIELE ? 43.57.48.2C 



COMMANDEZ 

Par téléphone . . . ALLO RACHEL 43.57.96.89 
Par courrier .... Bon de commande ci-dessous 
Par minitel 361 5 code AMIE 




^ Facilité AMIE 4 mensualités sans intérêt /i 



^ Crédit GREG. taux 18.24 % à partir de <\ 
1 500 F aorès accentntinn Hu dn«!.. *■* 



1 500 F après acceptation du dossier l 
Carte Bleue, inscrivez le n° et 
la date de validité sur 
le bon de commande ci-dessous 



BON DE COMMANDE AMIE 



a retourner à AMIE VPC 1 1 tx) Voltaire 7501 1 PARIS 
No" 1 Prénom 

Code Postal Ville 

Mon oro-na leur est un rfil 



quantité 



Mont. Total : 



+ trais d envoi PTT 25 F. transporteur 6 
& |oint mon règlement par chèque 

CCP 
CBN' [),„.. 

Me* 10 % de produits en plus : 
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Arrivé en fin de ligne, il restera au bout 
de la ligne et une sonnerie retentira ; 

— la flèche [ — ] du pavé numériaue per- 
met de déplacer le curseur vers la gau- 
che (le début de la ligne) dans les mêmes 
conditions. 

Il faut noter une particularité de MIS- 
SIVE permettant de signaler la fin d'une 
ligne. Pour les sept derniers caractères : 

— le curseur prend la forme d'un rectan- 
gle encadré ; 

— une sonnerie prévient l'utilisateur. 
Le déplacement rapide du curseur est 
possible et s'effectue alors par sauts de 
cinq caractères ; 

— presser [shift] + [— ] pour aller à 
droite ; 

— presser [shift] + [— ] pour aller à 
gauche ; 

La bonne utilisation de la touche [shift] 
implique qu'elle soit maintenue appuyée 
en même temps que les touches dont elle 
modifie la fonction. En général, il est pré- 
férable de la presser avant, pendant et 
après l'autre touche. 

• Position de la ligne d'édition 
La ligne où s'effectue le travail est faci- 
lement repérable puisqu'elle est affichée 
en inversion vidéo. 

— la flèche [t] du pavé directionnel per- 
met de déplacer la ligne d'édition vers 
le haut. Cette manœuvre, très simple, 
peut s'effectuer à partir de n'importe 
quelle position du curseur. Par contre, la 
nouvelle ligne d'édition sera présentée 
avec le curseur en début de ligne ; 

— la flèche descendante du pavé direc- 
tionnel permet de déplacer la ligne 
d'édition vers le bas. C'est la touche uti- 
lisée pour quitter sans justification une 
ligne que l'on vient de terminer. 

La ligne peut aussi être déplacée avec 
une justification automatique. Cette opé- 
ration de justification n'a pas lieu si la 
ligne a déjà été justifiée. Un test est effec- 
tué sur les caractères de fin de ligne. En 
cas de modification d'une ligne précé- 
demment justifiée nécessitant une nou- 
velle justification, il faudra amener le cur- 
seur en fin de ligne, passer en mode 
insertion en pressant la touche [tab], 
appuyer plusieurs fois sur la barre d'es- 
pace et quitter le mode insertion en 
appuyant à nouveau sur la touche [tab]. 
La nouvelle justification aura alors lieu 
en pressant les touches adéquates. 
La justification respecte les marges à 
gauche dès lors qu'elles sont intégrale- 
ment vides. 

Pour justifier : 

— avec déplacement vers le haut : 
[shift] + [I] 

— avec déplacement vers le bas : 
[shift] + [if 

Ces touches sont elles aussi à répétition. 
En raison du mode de programmation, 
il arrive que le mouvement de la ligne 
soit interrompu par une opération de 
garbage. Peu de temps après, il reprend 



normalement. Il n'y a donc pas lieu de 
s'en inquiéter. 

• Déplacement de la page-écran 

Il est utile, puisque la page-écran com- 
prend vingt lignes et le texte soixante, 
de pouvoir travailler sur n'importe quel 
ensemble de vingt lignes consécutives du 
texte. En d'autres termes, on peut ima- 
giner que la page-écran est une fenêtre 
derrière laquelle, ligne par ligne, défile 
le texte tout entier en avant ou en arrière. 

— pour faire défiler le texte vers le 
haut : 

[ctrl] + m 

— pour faire défiler le texte vers le bas : 
[ctrl] + [1] 

Il est à noter que la ligne d'édition con- 
serve sa position dans la page-écran car 
c'est le texte qui défile, pas la ligne 
d'édition ! 

Ces commandes sont elles aussi à répé- 
tition et assez rapides malgré le gar- 
bage. Ne pas confondre [shift] avec [ctrl] 
pour éviter des justifications aussi impré- 
vues qu'injustifiées...! 
Il est possible d'en distinguer trois utili- 
sations principales : 

— la plus importante permet de faire 
apparaître une nouvelle ligne vierge 
lorsqu'on arrive en fin de page-écran. 
On utilise alors [shift] + [t] ; 

— ensuite vient la consultation du texte 
par défilement ; 

— une utilisation plus spécifique consiste 
à placer l'éditeur en mode impression. 
Toutes les lignes défilant sous la ligne 
d'édition seront alors imprimées. Les 
possibilités du mode impression seront 
détaillées ultérieurement. 

Pour obtenir les pages-écrans, il est aussi 
possible de procéder ainsi : 

— retrouver le menu en pressant 
[ENTER] ; 

— prendre l'option rédaction en pres- 
sant [R] ; 

— donner le numéro de la page et de 
la ligne dans la page. 

Opérations d'insertion 

Les opérations d'insertion comprennent : 

— Insertions dans le texte. 

— les insertions de lignes vides dans 
la page-écran ; 

— l'opération inverse de suppression 
de lignes en blocs. 

— Insertions dans la ligne d'édition. 

— le remplacement immédiat d'une 
ligne vide ou non par une autre ligne 
enregistrée dans un buffer ; 

— l'insertion de mots ou séries de 
mots à partir de la position du curseur ; 

— à partir d'un buffer ; 

— par passage en mode insertion ; 

— le remplacement d'un caractère 
par un autre. 

• Insertions dans le texte 
Imaginons que le besoin se fasse sentir 



d'insérer un paragraphe de quatre 
lignes dans le texte entre, par exemple, 
la ligne 35 et la ligne 36 du texte actuel. 
Il faudra suivre la procédure suivante : 

— amener la ligne d'édition sur la 
ligne 35. En effet, les insertions se font 
toujours après la ligne d'édition ; 

— appuyer sur [ctrl] + [shift] + [l] ; 

— un sous-menu apparaît qui 
demande combien de lignes insérer. 
Répondre en appuyant [4] puis valider 
avec [enter]. L'insertion a alors lieu auto- 
matiquement. 

Après la ligne 35 du texte, les lignes 36, 
37, 38, 39 sont vides. L'ancienne ligne 
36 est devenue la ligne 40. Avant la 
ligne 35 la numérotation n'a pas changé, 
mais après elle a augmenté de quatre 
pour toutes les lignes du texte. 
Quelques remarques sont à faire : 

— les quatre dernières lignes du texte 
avant l'insertion, n'ayant pas pu pren- 
dre les valeurs 61, 62, 63, 64, ont, dans 
cette version de MISSIVE, été simple- 
ment supprimées. Il faut donc bien étu- 
dier chaque cas d'insertion ; 

— un contrôle étant effectué, il est 
impossible de demander plus de lignes 
aue n'en comporte le texte après la ligne 
d'édition. C'est une sécurité ; 

— une autre sécurité, appréciable, 
concerne la possibilité de ne pas insérer 
de lignes en répondant [0] ; 

— en se mettant en première ligne et 
en frappant [59], tout le texte est vidé, 
la page est blanche. Bonjour l'angois- 
se... 

• Suppression de lignes en blocs 
Cette possibilité, l'inverse exacte de la 
précédente, fonctionne d'une manière 
analogue, mais "compresse" le texte. 

— elle s'obtient par : 
[ctrl] + [shift] + m 

— des lignes vides sont ajoutées en fin 
de texte ; 

— les mêmes sécurités que pour l'in- 
sertion existent ; 

— il est aussi possible de vider le texte 
par cette fonction ; 

— les lignes sont supprimées après la 
ligne d'édition. 

• Utilisation des buffers de ligne 

Ils sont au nombre de deux et permet- 
tent de conserver, pour les placer autant 
de fois que nécessaire dans le texte, des 
lignes élaborées une fois pour toutes. 
Cela s'avère très utile pour créer des for- 
mulaires, ou des documents complexes. 
— Remplir le premier buffer. 

— d'abord, élaborer sa ligne dans la 
ligne d'édition placée à une position 
quelconque ; 

— appuyer sur la touche [esc]. Elle est 
rouge donc repérable. Le bord de 
l'écran change de couleur. Cela indique 
que le menu des options spéciales a été 
activé ; 

— appuyer sur la touche [Q] ; 
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— toute la ligne est copiée en bloc, 
dans la fenêtre du bas en ligne A. 

Le menu des options spéciales se quitte 
automatiquement. 

— Reproduire le premier buffer. 

— d'abord placer l'éditeur de ligne à 
la position désirée ; 

— presser [esc] pour activer le menu 
d'options spéciales ; 

— presser la touche [W] ; 

— toute la ligne entreposée dans le 
buffer est placée dans l'éditeur de ligne. 

— Effacer le premier buffer. 

— activer le menu des options 
spéciales ; 

— presser la touche [E] ; 

— le buffer A est vidé. 

— Cas du second buffer. 

— pour le remplir : [esc] + [R] 

— pour le reproduire : [esc] + [T] 

— pour le vicier : [esc] + [Y] 

• Insertion de mots à partir d'un buffer 
Il est parfois utile de pouvoir, au cours 
de la rédaction d'un texte, éviter de réé- 
crire un mot ou une expression qui re- 
vient souvent. Il faut alors utiliser le buf- 
fer de mots. 

— Remplir le buffer de mots. 

— presser [shift] + [ctrl] + [— ] ; 

— l'éditeur du buffer est activé en 
ligne 25. Il apparaît en noir. Les fonc- 
tions [del] et [clr] sont disponibles ; 

— écrire le contenu à reproduire sou- 
vent puis valider avec [enter]. Le texte 
s'affiche à nouveau et le buffer de mots 
est recentré en ligne 25, son contenu est 
alors disponible. 

— Utiliser le buffer de mots. 

— placer le curseur de ligne à l'em- 
placement de la première lettre du mes- 
sage à reproduire ; 

— presser [shift] + [ctrl] + [-] ; 

— tout le contenu du buffer est alors 
placé et le curseur de ligne se déplace 
à la fin du contenu reproduit. 

• Utilisation du mode insertion 

Le mode insertion est très important et 
demande à être bien connu. A la diffé- 
rence du mode d'écriture normal qui pro- 
cède par recouvrement, chaque carac- 
tère étant écrit à la position du curseur 
sans modification des autres, le mode 
insertion, plus farceur, permet d'écrire en 
déplaçant vers la fin de la ligne tout ce 
qui se trouve à la droite du curseur. 

— Obtenir et quitter le mode insertion. 

— il faut pour cela appuyer sur la tou- 
che [tab] ; 

— la première pression active le mode 
insertion ; 

— la seconde pression inhibe le mode 
insertion. 

— Signalement du mode insertion. 

— le mot "INSERTION" est affiché 
sur la bordure supérieure du cadre de 
la fenêtre menu ; 

— toute action en mode insertion est 
signalée par bruit de sonnerie. 

— Utilisation du mode insertion. 
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— les fonctions [del] et [clr] font par- 
tie du mode insertion, elles seront décri- 
tes ultérieurement. 

— Admettons que nous ayons écrit : 
LE PETIT POIS VERT. 

et que nous voulions : 

LEs PETITs POISsons VERTs. 
(Les lettres insérées sont en minuscules 
pour l'exemple) 

— Etapes à suivre : 

1) Amener le curseur sur le "E" du 
"LE". 

2) Frapper [tab], le mot [INSERTION] 
s'affiche. 

3) Frapper le "s" il s'insère. 

— Avant : 

LE PETIT POIS VERT. 

— Après : 

LEs PETIT POIS VERT. 

4) Appuyer sur [— ] pour se poser sur 
"T" de "PETIT" 

5) Frapper le "s", on a : 
LEs PETITs POIS VERT. 

6) Appuyer sur [— ] pour se poser sur 
"S" de "POIS" 

7) Frapper calmement "s","o","n", 
"s" soit "sons" ce qui donne successive- 
ment : 

LEs PETITs POIS VERT. 
LEs PETITs POISs VERT. 
LEs PETITs POISso VERT. 
LEs PETITs POISson VERT. 
LEs PETITs POISsons VERT, 
et ainsi de suite. 

— Remarques importantes. 

— Chacun sait qu'ils sont rouges et 
qu'en plus il faut mettre un "s" au 
"VERT". 

— ATTENTION : 

Ne pas oublier de frapper [tab] à nou- 
veau quand l'insertion est terminée pour 
quitter ce mode... 

— Utilisation pour la PRESENTATION. 

1) Cette fonction d'insertion est très utile 
aussi pour déplacer une chaîne entière 
vers la droite, en particulier pour mettre 
au point une présentation. 

— Il suffit de se poser sur un blanc à 
droite de la chaîne et d'insérer des espa- 
ces en frappant la barre d'espace. 

2) L'effet inverse, le décalage d'une 
chaîne vers la gauche s'obtient en se 
posant à gauche de la chaîne et en frap- 
pant lentement la touche [cri]. 

— Le caractère situé à l'emplacement 
du curseur est avalé et toute la chaîne 
décalée d'un cran vers la droite. 

OPERATIONS 
D'EFFACEMENT 

Les opérations d'effacement compren- 
nent : 

— Effacement du texte. 

— Effacement de la ligne. 

— Effacement dans la ligne. 

• Effacement du texte 

Il existe trois manières de procéder, les 



deux premières, déjà vues, consistent à 

— Se poser en première ligne vide : 

1) demander à insérer 59 lignes [ctrl] 
+ [shift] + [l] 

2) demander à enlever 59 lignes [ctrl] 
+ [shift] + [I] 

La manière "normale" s'obtient à par- 
tir du menu des options spéciales : 

A) appuyer sur [esc] la bordure de 
l'écran change de couleur indiquant que 
le menu des options spéciales est activé. 

B) Une demande s'affiche en bas de 
texte : 

— répondre "oui" à la 1" demande 
puis encore "oui" pour confirmer. 

C) Le texte e»t alors totalement effacé. 



• Effacement de la ligne d'édition 
Là encore, deux méthodes : 

1 ) La première consiste à remplacer la 
ligne en cours par une ligne de BUFFER. 

- Activer le menu des options spéciales. 

- Appuyer sur [W] ou [T] 

La ligne est remplacée par le contenu de 

la ligne A ou de la ligne B. 

2) La seconde, "normale" consiste à 

presser simultanément les touches [shift] 

et [tab]. 

La ligne est aussitôt effacée. 

• Effacement dans la ligne d'édition 
Ce sont les plus courants : 

1) La touche [CLR] 

Elle est bien connue puisque dans "MIS- 
SIVE", elle a les mêmes effets que dans 
l'éditeur du CPC. Elle permet d'effacer 
un caractère à l'emplacement du curseur 
avec serrage de la chaîne. 
ATTENTION : dans "MISSIVE", elle 
est d'un effet plus lent, il convient, bien 
qu'elle soit à répétition, de la manipu- 
ler lentement et parfois d'insister. 
Elle fonctionne en mode normal et en 
mode insertion. 

2) La touche [DEL] 

De fonctionnement analogue à celle de 
l'éditeur du CPC, elle permet de rempla- 
cer par un blanc le caractère situé à gau- 
che du curseur sans serrage de la chaîne. 

3) La [BARRE ESPACE] 

Tout caractère situé à droite du curseur 
est remplacé par un point. C'est l'effet 
inverse de la touche [DEL]. 

4) La [TOUCHE QUELCONQUE] 
Appuyer sur une touche quelconque 
représentant une lettre ou un chiffre per- 
met de remplacer le caractère situé à la 
place du curseur par ce chiffre ou cette 
lettre. (Au fait... c'est comme ça qu'on 
écrit. ..I). 

5) L'effacement par [CTRL] + [-] 
Appuyer simultanément sur ces deux tou- 
ches et tout ce qui se trouve à droite du 
curseur dans la ligne est effacé. 

6) L'effacement par [CTRL] + [-] 
L'effet est inverse et tout ce qui se trouve 
à gauche du curseur est effacé. 

7) Utilisation du [BUFFER DE LIGNE] 
A) pour ouvrir ce buffer, appuyer sur 

[CTRL] + [SHIFT] + [-] 



B) le remplir de blancs en appuyant sur 
la barre espace en comptant le nombre 
de fois (5 pour un espace de 5) ou 
jusqu'à la sonnerie pour avoir tout le 

C) valider par [enter] 

D) poser le curseur au début de la 
zone à effacer. 

E) appuyer sur la suite de touches 
[CTRL[+ [SHIFT] + [-] et il s'insère dans 
la chaîne un bel espace vide sans aucun 
point. 

Opérations d'impression 

Elles se décomposent en commandes 
directes et indirectes et se caractérisent 
par une utilisation intensive du menu des 
options spéciales. 

• Commandes directes 
Accessibles directement en mode RE- 
DACTION, elles permettent d'intervenir 
de façon très souple sur le document 
inséré dans l'imprimante. Ces possibili- 
tés du mode rédaction accroissent con- 
sidérablement les applications de 
"MISSIVE". 

Elles permettent en particulier d'utiliser 
ce logiciel pour : 

— intervenir en des points précis de 
documents par ailleurs constitués, pour 
légender une photocopie par exemple ; 

— TRANSFORMER véritablement le 
CPC en MACHINE A ECRIRE sophisti- 
quée pour la rédaction directe, mais 
avec toutes les garanties souhaitables, 
de documents aussi longs qu'on le désire. 

1 ) Initialisation directe de l'imprimante. 
Taper [ESC] puis la touche [COPY1. 
L'imprimante se réinitialise avec saut de 
ligne. 

2) Mode impression directe. 

Dans ce mode, toute ligne que l'on 
quitte est imprimée. 

A) Passer en mode "impression". 

- taper [ESC] suivi de la touche [11. 

- Sur la dernière ligne de l'écran s'af- 
fiche deux fois le mot "IMPRESSION". 

B) Utiliser le mode impression. 

- C'est par lui que les possibilités évo- 
quées plus haut sont mises en œuvre. Il 
est possible : 

- d'imprimer ligne après ligne ; 

- d'imprimer successivement les 
lignes non consécutives d'un texte affi- 
ché en mode rédaction. (Pour cela, se 
mettre sur la ligne à imprimer, passer en 
"impression", quitter la ligne en descen- 
dant ou montant, quitter aussitôt le mode 
impression, se poser sur l'autre ligne à 
imprimer, passer en "impression", etc.) ; 

- exercice : imprimer un texte à l'en- 
vers, de la dernière à la première ligne... 

C) Quitter le mode impression. 

- Ne pas se laisser impressionner, il 
suffit simplement de taper [ESC] suivi de 
la touche [O]. 

3) Impression d'une ligne hors mode 
impression. 
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C'est une facilité permettant d'imprimer 

une ligne isolée sans avoir à passer en 

mode impression. Cela peut être plus 

souple pour certains travaux. 

La commande est la suivante : taper 

[ESC] suivi de [P]. 

4) Récapitulons : Impression directe — 

[ESC] + [I], [O], [Pj. 

• Commandes différées 
Elles permettent, à la rédaction d'un 
document, d'insérer dans celui-ci des 
codes de contrôle, invisibles à l'impres- 
sion, mais qui commanderont l'impri- 
mante, une Mannesman MT.80 dans le 
cas standard. 

Ces codes de contrôles apparaissent 
sous la forme de caractères graphiques 
obtenus à partir du menu des options 
spéciales, lis ne produiront d'effet que 
lors de l'impression obtenue à partir du 
menu principal. 

1) Mode condensé 

- Pour l'obtenir, taper [ESC] puis [1] 
Cela donne le caractère [ ] 

- Pour l'annuler, taper [ESC] + [2] 
On obtient le caractère [ ] CONDENSE 

2) Mode large 

- Activer : [ESC] + [3] - [ ] 

- Annuler : [ESC] + [4] - [ ] LARGE 

L'attention est attirée sur le fait que ces 
commandes agissent aussi lors de l'affi- 
chage sur écran obtenu lors de la com- 
mande d'impression du menu principal. 
Il est impératif que le passage à afficher 
dans ce mode ne dépasse pas 35 carac- 
tères comptés à partir du début de la 
ligne. Sinon... 

3) Mode renforcé 

- Activer : [ESC] + [5] - [ ] 

- Annuler : [ESC] + [6] - [ ] 
RENFORCE 

4) Mode souligné 

- Activer : [ESC] + [7] - [ ] 

- Annuler : [ESC] + [8] - [ ] 
SOULIGNE 

5) Mode serré 

- Activer : [ESC] + [9] - [ ] 

- Annuler : [ESC] + [0] - [ ] 
ôj Mode double frappe 

- Activer : [ESC] + [-]-[] 

- Annuler : [ESC] + []-[] 
DOUBLE FRAPPE 

7) Commande de réinitialisation de l'im- 
primante 

- Elle s'obtient en frappant [ESC] puis 
[X] 

ATTENTION 

Toute commande différée doit être sui- 
vie de son annulation en fin de ligne, 
quitte à la reprendre en début de la sui- 
vante. Il est indispensable de respecter 
cette petite règle pour éviter des déboi- 
res. 

Ces commandes sont contenues dans un 
fichier appelé "REDEFCAR" séparé de 
la liste principale du logiciel et qu'il est 
facile de modifier pour adapter "MIS- 



SIVE" à d'autres imprimantes. Se pen- 
cher pour cela sur les articles de M. 
Archambault parus dans CPC. 

• Le double jeu 

des caractères graphiques 

Nous venons de voir comment obtenir 
des caractères redéfinis que nous ne 
pourrons pas voir puisqu'il servent de 
codes de contrôle pour l'imprimante. 
Mais, pour composer de belles pages- 
écrans (non imprimables), on peut obte- 
nir un autre jeu de caractères graphi- 
ques. Pour cela : 

- Activer : [ESC] + [Jl 

- Annuler : [ESC] + [J] , encore... La 
commande bascule entre les deux jeux 
de douze. 

• Les caractères accentués 

Ils constituent une des grandes qualités 
de "MISSIVE" et sont accessibles sur le 
pavé numérique. On en dispose ensuite 
à l'écran ou à l'impression. En voici la 
liste : 



1 


— 


è] 


2 




c] 


3 


— 


ÔJ 


4 


— 


é] 


5 




' 


6 


- 


" 


/ 


— 


e 


8 




A 


— • 


u 


9 


— 


ù 





_ 


ë 


J ~ f' 


A 


[E 


NITEF 


Jlàj 



Ils sont, eux aussi, programmés dans le 
fichier REDEFCAR.ASC et donc modifia- 
bles ou adaptables pour d'autres impri- 
mantes selon les besoins. 

• L'inversion vidéo 

Aucun luxe n'étant refusé à l'utilisateur, 
il est possible d'obtenir l'inversion vidéo 
à partir du menu des options spéciales 
par la commande à bascule [ESC] puis 

• Quitter le programme 
de manière polie 

La commande [break] étant inactivée, il 
peut être utile de savoir qu'en mode 
rédaction, le programme se quitte à par- 
tir du menu des options spéciales par la 
commande [ESC] puis [SJtop... 
Le programme demande alors le nom du 
texte en cours pour sauvegarder. 

• Quitter le programme de façon 
impolie et revenir ensuite 

Lorsque le programme demande le nom 
du texte, répondre en tapant [ESC]. 
Le programme s'arrête après [ENTER]. 
Pour revenir, frapper : GOTO 55. 
Le programme repart au début sans 
perte de fichier. Cela peut s'avérer 
utile... 



VISUALISATION 
DU TEXTE 

Il s'agit ici d'extensions particulières de 
possibilités par ailleurs comprises dans 
le mode édition, c'est-à-dire : 

— la visualisation sur écran ; 

— la visualisation sur papier ou impres- 
sion. 

Ces possibilités sont atteintes à partir du 
menu général en frappant la touche 
[Visualisation. 

Accès 

D'emblée s'affiche un menu. La numéro- 
tation indique ici l'ordre de la pose des 
questions. 



IMPRESSION SUR ECRAN 
EDITER SUR PAPIER 
DEPART - DEFILEMENT 
ARRIVEE - DEFILEMENT 



Il existe une option automatique obtenue 
en frappant quatre [ENTER]. 

- Question 1 : réponse OUI 

- Question 2 : réponse NON 

- Question 3 : réponse -01- 

- Question 4 : réponse -60- 

Nous avons dans ce cas un affichage de 
la totalité du texte à l'écran. 

En frappant une touche quelconque : 

- Question 1 : réponse NON 

- Question 2 : réponse OUI 

Nous avons dans ce cas un accès à l'im- 
primante... 

Les questions 3 et 4 appellent des chif- 
fres. Grâce à elles, il est possible de choi- 
sir le passage du texte à imprimer ou à 
visualiser. 

Des sécurités prennent en compte les 
demandes incohérentes et obligent à 
donner un nombre de départ inférieur au 
nombre d'arrivée. (Pour les impressions 
inversées de texte en direction des anti- 
podes, voir le passage concernant le 
sous-mode impression du mode édition] . 
Il est par contre possible d'obtenir à la 
fois l'affichage sur écran et l'impression 
sur papier. Ne demander ni l'un ni l'au- 
tre renvoie au menu. 

Impression sur écran 

Lorsque cette option est activée, l'écran 
se vide totalement et le texte apparaît 
ligne par ligne SANS LES POINTS. 
Cela donne une bonne idée du texte tel 
qu'il sera sur papier. Les caractères gra- 
phiques du second jeu sont affichés, ce 
qui permet d'accompagner le texte et de 
créer de belles pages. (Attention à l'im- 
pression.) 

La relative lenteur de l'affichage est com- 
pensée par le grand intérêt pédagogi- 
que que représente ce mode d'affichage. 
La lecture du texte en est facilitée pour 
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des enfants. En particulier, les mots situés 
dans une zone délimitée par les codes 
d'élargissement seront affichés comme 
en mode 1 simultanément avec le reste 
de l'affichage fait en mode 2. 
Si l'affichage se fait ligne à ligne, il se 
fait aussi page par page. A la fin d'une 
page, l'affichage s'arrête pour lecture et 
relecture. Puis, après avoir frappé plu- 
sieurs fois la barre d'espace, il reprend 
en décalant ligne à ligne le texte vers le 
haut. 

Impression sur papier 

Les possibilités de l'impression ont été 
largement détaillées dans le chapitre 
concernant le sous-mode impression du 
mode édition. Il suffira de rappeler ici 
qu'elle est prévue sur MT.80 dont les 
possibilités sont utilisées grâce à des 
caractères de contrôle avec les modes 
ELITE ou PICA. 

LA GESTION DES 
FICHIERS-DISQUE 

Grâce aux possibilités offertes par 
l'Amsdos, le logiciel "MISSIVE" permet 
d'intervenir sur la gestion du disque. Il 
est possible d'obtenir directement le 
catalogue des fichiers et, après choix, de 
les supprimer ou de les renommer. Le 
choix des noms de fichiers pour la sau- 
vegarde ou le chargement peut se faire 
avec le catalogue sous les yeux, ce qui 
est bien pratique. 

La sauvegarde automatique et régulière 
du texte en cours d'élaboration, les mes- 
sages qui accompagnent les opérations 
pouvant entraîner un effacement involon- 
taire du texte sont autant de précieuses 
possibilités. 

Accès sur le disque 



1 ) Accès 

C'est une option du menu général, acces- 
sible en pressant la touche [A], il faudra 
donc, pour y arriver à partir du mode 
"EDITION", avoir frappé au préalable 
la touche [ENTER] pour retrouver le 
menu général. 

2) D'emblée, un test est opéré pour 
savoir si une disquette est en place et si 
elle est protégée. Les messages s'affi- 
chent sur la fenêtre du bas de l'écran. 
Après avoir effectué, si nécessaire, les 
manipulations permettant de lire la 
bonne face de la bonne disquette, il suf- 
fit de presser une touche. 

3) La fenêtre principale s'efface alors et 
le catalogue du disque s'affiche pour 
consultation. 

4) Celle-ci terminée, l'appui d'une tou- 
che fait apparaître en dessous du cata- 
logue les messages suivants : 



Donnez le nom du fichier à choisir 



Deux cas se présentent : 

A) On ne désire effectuer aucune opé- 
ration sur fichier. 

Il suffit de taper [ENTER] deux fois pour 
retourner au menu général. 

B) On désire effacer ou renommer un 
fichier. 

- D'abord écrire le nom du fichier choisi 
avec son extension et le point. Il est pos- 
sible d'utiliser [DEL] et [CLR], mais pas 
les touches fléchées si l'on désire corri- 
ger. 

- Valider avec [ENTER] 

- Recommencer l'opération après la 
demande de confirmation et valider avec 

fENTER]. Le nom s'affiche une seconde 
ois en dessous. 

- Si les deux noms ne sont pas identiques, 
l'opération recommence et cela peut 
durer longtemps. 

- Si les noms sont identiques, s'affiche le 
message suivant : 



EFFACER [E] 



- IDENTIQU.MIS 
RENOMMER [R] 

- IDENTIQU.MIS 



- L'appui sur [E] déclenche un effaçage 
immédiat du fichier choisi. Le catalogue 
s'affiche à nouveau et tout peu recom- 
mencer, sauf si MISSIVE vient de se faire 
hara-kiri... Restez calme... 

- L'appui sur [R] entraîne le message sui- 
vant : 



Donnez le nouveau nom du fichier 



- Il ne vous reste plus qu'à saisir le nou- 
veau nom, avec confirmation et, après 
avoir validé deux noms identiques, 
l'opération a lieu, l'écran s'efface et le 
nouveau catalogue s'affiche à nouveau. 

- Vous pouvez alors continuer ainsi et 
renommer ou effacer tous les fichiers de 
la disquette. 

- Quand vous avez fini, rappelons que 
deux [ENTER] ramènent au menu géné- 
ral après un affichage de catalogue. 

Sauver le fichier 

1 ) Accès 

C'est une option du menu général obte- 
nue avec la touche [S]. Sortant d'une 
opération d'affichage du catalogue, il 
est à noter que celui-ci reste marqué sur 
l'écran, ce qui permet de choisir le nom 
du texte en toute connaissance de cause. 

2) Après avoir écrit le nom du fichier, 
sans son extension donnée automatique- 
ment par le logiciel (.MIS), il faudra 
frapper trois fois sur [ENTER] et la che- 
y Miette cherra... 

3) Le retour au menu général sera auto- 
matique. 



Il existe un certain nombre de cas où a 
lieu une sauvegarde automatique : 

A) Toutes les cinq minutes, le texte en 
cours de saisie est sauvé sous le nom de 
"SAUVEGAR.MIS". La version précé- 
dente répondant alors au doux nom de 
"SAUVEGAR.BAK". Il faudra donc 
garder 10 Ko sur la disquette pour ces 
deux fichiers. 

B) Si vous quittez le programme en 
mode rédaction par les touches [ESC] 
puis [S]. 

Il existe un certain nombre de cas où a 
lieu une sauvegarde avec choix du nom 
hors du cas standard. 

A) Si, en menu général, le programme 
est quitté par la frappe de la touche 
[F]in. 

B) S'il existe un texte dans la mémoire 
et qu'une demande se fait pour en intro- 
duire un autre. 

Introduire le texte 

1) Accès 

C'est une option du menu général don- 
née par la touche [T]. Elle comporte une 
sécurité, évoquée plus haut, qui n'est 
activée que si la mémoire de texte n'est 
pas vide. 

Dans ce cas, un message s'affiche 
demandant s'il est souhaitable de sau- 
vegarder le texte. Si l'on répond "OUI" 
deux fois (avec confirmation), le nom du 
texte à sauvegarder est demandé et 
après réponse, la sauvegarde a lieu. 
Répondre "NON" amène directement 
à la saisie du nom du texte à introduire. 

2) Un message s'affiche demandant le 
nom du texte à charger. La démarche de 
saisie est identique aux précédentes. 
Frapper [ENTER] trois fois et le texte 
demandé se charge, avec affichage 
automatique de la première page. Le 
retour au menu général est automatique. 

Pour éviter tout risque de demande d'un 
fichier absent, il est bon, au préalable 
d'avoir demandé le catalogue. En cas de 
message d'erreur, un GOTO 55 relan- 
cera le programme sans perte de fichier. 

Remarque 

Qu'il s'agisse des options CATALOGUE, 
CHARGEMENT, ou SAUVEGARDE, 
après frappe de la touche adéquate à 
sortir du menu général : 
A] ACCES SUR LE DISQUE 
tl INTRODUIRE LE TEXTE 
S] SAUVEGARDER LE TEXTE 
un test de présence et de protection de 
disquettes est toujours déclenché. C'est 
une sécurité de plus. 
La frappe de la touché [ESC] à la place 
d'un nom de fichier, puis la validation 
par [ENTER] provoque une sortie du 
programme. 
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ANNEXE POUR LA 
VERSION CASSETTE 



MISSIVE ayant été conçu sur CPC 464 
peut tourner sans problème dans la ver- 
sion de base de l'appareil. 
La constitution d'une version cassette se 
fera sans modification directe du pro- 
gramme principal, ce qui facilitera un 
passage ultérieur sur disquettes. 
La modification se fait sur le programme 
DELETE.ASC dont la version est diffé- 
rente pour l'utilisation cassette ET QUI 
REMPLACE, en des points stratégiques, 
certaines lignes du programme principal. 
Attention à la saisie, les espaces doivent 
être identiques sur les messages du 
menu, ligne 220. 



m n mn + mu t+imtmvmmit+m m 



mtw*m 



«* 



10 COPYRIGHTS 6EOR6E3 HECKEfi *** BESlE SUR VILAINE >U 

*** 12 DECEMBRE 87 

15 REDEPART GOTO 55 

XMÛDES",B. 41507,192 

18 ' 

20 SYMBOL AFTER 126 

25 MEMORY 41506 

30 SÛSUB 65:FQR bk=l TQ 20û:NEXT 

35 CHAIN MER6E"REDEFCAR.ASC".40 

40 GQSUB 10000:F0R bk-1 T0 200:NEXT 

45 CHAIN MERGE"DELETE.ASC".50,ÛELETE 10000- 

50 DIM sp(75):DIM m*(60):buf$U)=STRING$(75,CHR*<i57);>: 

but*(2)=buf$U):k*=STRING*(50,CHR*(233)i:FQR i=l TQ 60i 

m$ ( 1 ) =5TRIN6* (75. CHR* ( 157) J :NEXT i 

55 GQSUB ?5:G05UB 265 

60 CALL 8cBB48:RESTûRE:QN ERR0R 6QTQ 2780:EVERY 15000,3 

G05UB 2430: GOTO 210 

65 0PEN0UT"BUFFER" 



SAVE "RS >LF 



>LJ 

>m 

;BK 
>ZC 

>AL 

m 

>LH 
>NF 



m 



70 MEMORY HIMEtl-1 

75 CLÛSEÛUT 

30 GÛSUB 7000:CALL 41507 

85 DIM f$(45i 

90 RETURN 

95 MODE 2: BORDER 10: INK u.0:INK 1.18:CLS 

100 WIND0WI2, 1 , 80. 1 . 25: PAPER#2. 1 : PEN#2. 0: CLS#2 

105 WINBQW#0,2.79,22,25:PAFER#0. l:FtN#0,0:CLS#0 

1 10 WINDOWil . 2, 79, 2, 21 : PAPER#1 , 0: PEN#1 , 1 :CLS#1 

115 G0SUB 120:60SUB 150:60SUB 170:RETURN 

120 FOR 1=1 T0 25 

125 L0CATE#2, 1, i:PRINT#2,CHR*<233) : :L0CATE#2,80. i:PRINT 

#2,CHW(233); 

130 NEXT i 

135 L0CATE#2,1,1:FRINT#2.STRING*(80.CHR*(233)): 

140 LQCATE#2,33,1:PRINT#2,"» MISSIVES «" 

142 L0CATE #2,l;i:PRINT #2,"»PÙ":LÛCATE #2,76,1:PRINT 

145 RETURN 
150 CLS 



>PT 

;MK 
>LD 
>RK 
/BA 
;TH 
;>GM 
, : QD 
>RH 
>06 
>JT 

;CB 
>ux 

/NC 
/RM 
>LH 
>MU 

>ZF 
>UA 



155 L0CATE#0. i.4:PRINT#0.CHR*(24) : STRIN6* l 78.CHR» (233) ; 

; CHR* (24): 

160 L0CATE80. 1. 1:PRINT#0.CHR*(24) :STRIN6*(78,CHR*i233) ) 

:CHR*t24> 

165 RETURN 

i/U LLbil 

175 FOR 1=1 T0 20 

180 LQCATE#l,l,i:FMNT#l,USIN6"##":i 

185 LÛCATE#l,3,i:FRINT#l.CHR*i243) 

190 LûCATE#l,4,i:PRINT#l,STRIN6$i75.CHRï(157j): 

195 NEXT 1 

200 RETURN 

205 G0SUB 150 

210 L0CATE 2.2:PRINT CHR$(7):EI 

215 L0CATE 2,2 

220 PRINT" INTRODUIRE LE TEXTE ";CHR*(24);"-T-":CHR*(24 

):" REDIGER LE TEXTE ";CHR*(24);"-R-";CHR*(24):" 

ACCES SUR LE DISQUE " : CHR$ (24) ; "-A-" : CHR$ (24) ; 

225 L0CATE 2,3 ' 

230 PRINT"SAUVEGARDER LE TEXTE ":CHR*(24):"-S-":CHR*(24 

!;" VISUALISER LE TEXTE ";CHR$(24):"-V-";CHR$(24.i:" 

AZERTY <--> QWERTY ":CHR*(24):"-C- U ;CHR$(24>; 

235 c*=INKEY*:WHILE c*="":G0T0 235:WEND 

240 c*=UPPER*(c*) 

245 IF INSTR("TRASVCPEF".c$)=0 THEN GOTO 235 

250 h=-(c$="T")-2*(c$="R";-3»(c$="A")-4*(c*="S"i-5*(c*= 

"V")-6*(c*="C")-7*(c*="P")-8*(c*="E")-9*(c$="F") 

255 ON h G0SUB 295,565,2345,495,1945,2260,3000,4000,555 

260 L0CATE 2.2:PRINT CHR$(7):60TO 210 

265 L0CATE 5,2 

270 PRINT CHR$ (24): "POUR POUVOIR CONTINUER D0NN 

EZ LE MOT DE PASSE ":CHR*(24) 

275 L0CATE 30,3:PRINT CHR*i24i;STRING*(lS,CHR*i233)):CH 

R$(24) 

280 f=0:w=33:s=3::<=24:b=-l:l=12:PEN#0,l:G0SUB 1705:PEN# 

0,0 

285 IF t*<> "LITTERATURE "THEN GOTO 275 

290 PRINT CHR* (7);: RETURN 

295 DI: GQSUB 360 

296 r=0 

297 FOR i=l T0 60 

298 IF m*(i) <> STRING*(75,CHR*U57)) THEN r=-l 

299 NEXT i 

300 IF r THEN G0SUB 395 ELSE GQSUB 150 
305 L0CATE 12.2:PRINT CHR* (24): 
310 PRINT"D0NNEZ LE NOM DU TEXTE A 

CHARGER": CHR* (24) 
315 L0CATE 20. 3: PRINT SPACE*(40) 
320 +=0:w=35:s=3:x=24:b=-l:l=8:60SUB 1705 
325 wt=MID*tt*,l,8):w*=w*+".MIS":L0CATE 2,2:PRINT CHR*( 
7): 

330 OF'ENIN w* 
335 FOR 1=1 T0 60 
340 INPUT*9.n*(i) 
345 NEXT i 



M 

,ZH 
—- 

/LL 

,Cb 
>EA 

;CP 
;RA 
>P0 
>YH 
;HC 
/ZT 
>PG 
>HM 



>PJ 



50 CL0SEIN 

52 ah=l: GQSUB 650 



;HR 
/LL 
>MH 

>MJ 

>WJ 

;EN 
>0E 

/MT 

>HD 

>EF 

>GP 
>VH 
;LR 
>Q8 
>DF 
>MJ 
>PJ 
/DE 
>YS 

m 
>te 

>JF 

>DH 

>MG 
>CJ 
>MD 
>PA 
>EK 
>ME 
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>2J 

360 FOR bk=l TO 1000:NEXT:G0SUB 150 >CU 

365 LOCATE 3,2:PRINT CHR$(24); "LECTEUR DE DISQUETTES"; >MW 
CHR$(24) 

370 LOCATE 3.3:PRINT CHR*(24); "PREPAREZ LA DISQUETTE!"; >MA 
CHR$(24) 

375 LOCATE 29,2:PRINT CHR*(24); "INSEREZ LA DANS LE DDI" >NC 
;CHR$(24) 

380 GOSUB 1880 >QK 

385 IF NOT tds THEN GOTO 365 >VJ 

390 RETURN >ZH 

395 GOSUB 150 >JC 

400 LOCATE 20.2:PRINT CHR* (24) : "DESIREZ VOUS SAUVEGARDE >LP 
R VOTRE TEXT£";CHR$(24) 

405 LOCATE 33.3:PRINT"0UI "; CHR* (24) ;"-?-"; CHR* (24j: u N /DE 
ON" 

410 f=0:w=37:s=3:x=24:b=-i:l=3:60SUB 420 >H6 

415 IF t*="QUI"THEN GOSUB 495:60SUB 150:RETURN ELSE RET >EN 
URN 

420 k=l >NK 

425 WHILE k<=2 m. 

430 GOSUB 1705 >QB 

435 IF t*O"N0N"AND t*O"0UI"THEN GOTO 430 >JZ 

440 k=k+l: LOCATE 33.1:PRINT CHR*(24);" CONFIRMER ";CHR$ >GE 
(24); 

445 WEND ;DB 

450 LOCATE 33,1:PRINT CHR*(24);STRING*(11,CHR*(233));CH >HR 
R$(24) 

455 RETURN >ZK 

460 LOCATE 33,4:PRINT"0UI ";CHR*(24);"-?-";CHR*(24);" N /DG 
ON" 

465 j=w:g=f:ag=s:ae=lg:xx=x >YP 

470 *=0:w=37:s=4:x=24:b=-l:l=3:G0SUB 420 >JF 

475 aP=0:IF t*O H 0UI"THEN ap=-l:GOTO 490 >HM 

480 FOR i=l TO 60:m*(i)=STRIN6*(75,CHR*(157).i:NEXT i:k* >DD 
=3TRING*(50,CHR*(233)) 

485 e=-3:6QSUB 1 1 85 :e=3: GOSUB 1170 >BV 

490 GOSUB 150:*=g:w=j:s=ag:lg=ae:x=xx:GQSUB 650:m=0:RET >HR 
URN 

495 DI: GOSUB 150 >LQ 

500 LOCATE 12, 2: PRINT CHR$(24); >YD 

505 PRINT"DONNEZ LE NOM DU TEXTE A >CE 
SAUVE6ARDER";CHR*(24) 

510 LOCATE 20,3:PRINT SPACE*(40) >AL 

515 f=0:w=35:s=3:x=24:b=-l:l=8:G0SUB 1705 >KD 

520 w*=t*+\ MIS": LOCATE 2,2:PRINT CHR*(7);:CALL &BB18:C >KT 
ALL &BB18 

525 OPENOUT w* >AC 

530 FOR 1=1 TO 60 >CF 

535 PRWrr#9,m$(i) >MG 

540 NEXT i >NH 

545 CLOSEOUT >TE 

550 RETURN >ZF 

555 i=10000:DI: GOSUB 2430:EI:G0SUB 2455: CLStl :! MODE 12: L >GW 
0CATEI1, 16. 5: PRINT#1, "TERMINE": IM0DE22: LOCATE 1,2:PRINT 
STRING*(77,CHR*(157));. -LOCATE 1,3:PRINT STRING*(77,CHR 
*(157));:LQCATE 35,1:PRINT CHR* (24) ; STRIN6* ( 12, CHR* (233 
));CHR*(24) 



560 LOCATE 1,2: END 

565 DI: GOSUB 150: El 

570 LOCATE 3,2 

575 PRINT CHR* (24);" NUMERO DE LA PAGE CHOISIE ";C 

HR*(24) 

580 LOCATE 45,2 

585 PRINT CHR* (24);" NUMERO DE LA LIGNE CHOISIE ";C 

HR*(24) 

590 LOCATE 4,3 

595 PRINT CHR*(24);"-1-";CHR*(24);" ";CHR*(24>;"-2 

-";CHR*(24);" "; CHR* (24): "-3-"; CHR* (24);" ";C 

HR*(24) ;"-?-"; CHR* (24); 

600 LOCATE 48,3 

605 PRINT CHR*(24);"-01-";CHR*(24i;" ";CHR*(24);" 

-?"'-";CHR*(24);" ";CHR*(24);"-20-";CHR*(24) 

610 ^=0:w=32:s=3:x=24:b=0:i*="#":l=l:60SUB 1705 

615 IF VAL(t*Xl OR VAL(t*)>3 THEN LOCATE 2,2:PRINT CHR 

*(7):G0T0 610 

620 pa=VAL ( t*) : ah= ( (pa-1 ) *20) +1 

625 f=0:w=60:s=3:x=24:b=0:i*="i#":l=2:G0SUB 1705 

630 IF VAL(t*Xl OR VAL(t*!>20 THEN LOCATE 2.2:PRINT CH 

ft*(7J:8GTÛ 625 

635 lg=VAL(tt) 

640 f=l:w=4:ak=75:x=24: GOSUB 150: GOSUB 650:6QSUB 695 

645 RETURN 

650 CLStl 

655 FOR i=l TO 20 

660 LOCATE#l,l,i:PRINT#l,USING"##";i+(ah-l) 

665 L0CATE#l,3,i:PRINT#l,CHR*(243) 

670 L0CATE#l,4,i:PRINT#l,m*(i+(ah-l);; 

675 NEXT i 

680 LOCATE 2,2:PRINT"A-";buf*(l);:L0CATE 2.3:PRINT"B-"; 

buf*(2); 

685 RETURN 

690 :=0 

695 po=l 

700 m=- 1 : al=0: rec=0: ret=0: stp=0: ;/=0: 1 1=0: sup=0: a=0: e=0: 

aa=0 

705 IF ay THEN LOCATE 2, 4: PRINT" IMPRESSION": LOCATE 68,4 

:PRINT"IMPRESSION" 

710 po*=CHR*(22)+CHR*(l)+CHR*(24)+CHR*(95)+CHR*(24)+CHR 

*(22)+CHR*(0) 

715 s=lg+(ah-l) 

720 LQCATE#f,l,lg:PRINTtK,USING"*#";s 

725 LOCATE#^,w,lg 

730 PRINTt{,CHR*(x);m*(5);CHR*(x); 

735 LOCATE#f,(w-l)+(po-l),lg 

740 PRINT#+,po* 

745 WHILE m 

746 ap=0 

750 qtt=50-INT(LEN(k*)):qtt=qtt/2:L0CATE#0.15,4:PRINT C 

HR*(24);STRING*(qtt,CHR*(233i);k*;STRING*(qtt,CHR*(233) 

);CHR*(24) 

755 IF po>67 THEN LOCATE 2, 2: PRINT CHR* (7); 

760 rep*=INKEY*:IF rep$<>""THEN GOTO 760 

765 rep*=INKEY*: WHILE rep*='"':GOTO 765: WEND 

770 IF(ASC(rep*)>64 AND ASC (rep*K123) THEN vit=-l:GOTO 

1100 ELSE vit=0 



>MV 
>NX 
;QB 
>JV 

>YB 

>KR 

>QF 
>TV 



>XJ 
>QH 

>QN 
>NA 

>YV 

>RC 

>PÛ 

,XF 

;XX 

m 

;EG 
>CK 

>MH 
>CT 
>FD 
>PG 
>LA 

>AE 

>RC 
>AF 

/JE 

>DR 

>PT 

>ZK 
>GK 
>MF 
>CF 
:WM 
;LN 
)XG 
>YH 
;HG 



>KD 
>HV 
>NW 
>TD 
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772 GOSUB 1030:IF(ASC(rep$)>127 AND ASC (rep$)< 140) THEN >JD 
vit=-l:G0T0 1100 ELSE vit=0 

775 IF INKEY (66) =0 THEN rep$="ESC": GOSUB 902: IF ap THEN >BD 
6QT0 695 ELSE GOTO 1100 

780 IF rep$=CHR*(59)THEN rep*=CHR$( 154): GOTO 1100 ,'TL 

785 IF rep$=CHR$(34)THEN rep*=CHR$( 155): GOTO 1100 >TK 

790 IF rep*=CHR$(44)THEN rep$=CHR$( 156): GOTO 1100 >TH 

795 IF rept=CHR$(32)THEN rep$=CHR*( 157): GOTO 1100 >TL 

800 IF reP$=CHR$(13)THEN stp=NOT stp:m=NOT m >NG 

805 IF INKEY (79) =0 THEN al=NQT al >AD 

810 IF INKEY (68) =32 THEN rec=NQT rec :m=NÛT m: GOTO 1150 >YR 

815 IF INKEY(0)=0 THEN ret=-l:m=NOT m:60T0 1100 >PA 

820 IF INKEY(2)=0 THEN ret=+l:m=NOT m:GÛTO 1100 >PW 

825 IF INKEY(0)=32 THEN ret=-l:aa=-l:m=NOT m:GQTO 1100 >YH 

830 IF INKEY(2)=32 THEN ret=+l:aa=-l:m=NOT m:GOTO 1100 ;>YD 

835 IF INKEY(0)=128 THEN fi=+l:m=NOT ra:60TQ 1100 >QD 

840 IF INKEY(2)=128 THEN ti=-l:m=NOT m:GOTO 1100 >QD 

845 IF INKEY (68) =0 THEN y=-l:GOTO 1100 >EH 

850 IF INKEYU)=160 AND NOT y THEN GOSUB 2490: GOTO 700 >WF 

855 IF INKEY (8) =160 AND NOT y THEN GOSUB 2465: GOTO 700 >WW 

860 IF INKEY(1)=128 AND NOT y THEN GOSUB 2730:G0T0 700 >WH 

865 IF INKEY (8) =128 AND NOT y THEN GOSUB 2750: GOTO 700 >WY 

870 IF INKEY (8) =0 THEN po=po-l: GOSUB 1635: GOTO 1150 >VU 

875 IF INKEY(1)=0 THEN po=po+l:GOSUB 1655:G0TQ 1150 >VR 

880 IF INKEY(8)=32 AND NOT y THEN LÛCATE#t,w,lg:PRINT#t >DA 
,CHR$(x);m$(s);CHR$(x);:po=po-5:G0SUB 1635:G0T0 1150 

385 IF INKEY (1)=32 AND NOT y THEN LÛCATE#t,w, lg:PRINT#f >CG 
,CHR$l>:);m$lsi;CHR$tx);:po=po+5:60SUB 1655:G0T0 1150 

890 IF INKEY(0)«160 THEN sup=-l:m=NQT ra:GOTO 1100 >TA 

395 IF I!#.Eïi2)=iô^ THEN à=-l:in=NOT ir,:BOTQ 1 100 >PJ 

900 IF INKEY ( 16) =0 THEN GOSUB 1675: GOTO 755 /KG 

901 GOTO 1100 >EK 

902 u*=INKEï$: IF u*C""THEN GOTO 902 >DB 

903 u$=INKEY$:WHILE u*="":BORDER 14:G0T0 903 :WEND: BORDE ;>FF 
R 10 

905 IF INKEY(67i=0 THEN e=+l:m=NOT m ;DA 

910 IF INKEY(59i=0 THEN e=-l:m=NOT m ;CH 

915 IF INKEY (58) =0 THEN e=+3:m=N0T m >DD 

920 IF INKEY(50)=0 THEN e=+2:m=NQT m >CY 

925 IF INKEY(51)=0 THEN e=-2:m=N0T m ;CG 

930 IF INKEY(43)=0 THEN e=-3:m=N0T m >CE 

935 IF INKEY(26)=0 THEN CALL 41683: FOR bg=0 TO 2:L0CATE >VU 
*bq,l,l:PRINT#bq,CHR$(24):NEXT bq 

940 IF INKEY(64)=0 THEN rep$=CHR$(141+:) >GG 

945 IF INKEY(65)=0 THEN rep*=CHR$(142+z) >HF 

950 IF INKEY(57)=0 THEN rep*=CHR$(143+z) >HD 

955 IF INKEY(56)=0 THEN rep$=CHR$( 144+z) >HJ 

960 IF INKEY(49i=0 THEN reP*=CHR$(145+z) >HH 

965 IF INKEY(48)=Û THEN rep$=CHR$C146+zi >HN 

970 IF INKEY(41)=0 THEN rep*=CHR$il47+z) >HC 

975 IF INKEY(40)=0 THEN rep$=CHR$(148+z) >HH 

980 IF INKEY(33)=0 THEN rep$=CHR$(149+zj >H6 

985 IF INtc.EY(32)=0 THEN rep$=CHR$(150+z) >HC 

990 IF INKEY(25)=0 THEN rep$=CHR$(151+z) ,HB 

995 IF INKEY(24)=0 THEN rep$=CHR$(152+z) >HG 

1000 IF INKEY(69)=0 THEN GOSUB 2455:G0SUB 460:G0SUB 246 >ZC 


1005 IF INKEY(53)=0 THEN GOSUB 555 >AC 



1010 IF INKEY(27Ï=0 THEN n=s:c=s:GOSUB 2205 ;>LC 

1015 IF INKEY(35)=0 THEN ay=-l:LOCATE 2, 4:F'RINT" IhPREBS >CZ 

ION":LOCATE 68, 4: PRINT" IMPRESSION" 

1020 IF INKEY(9)=0 THEN PRINT#8:PRINT#8,CHR$(27);CHR$(6 >CB 

4) 

1025 IF INKEY(45)=0 THEN z=z+20:IF z=40 THEN z=0 >PP 

1027 IF INKEY(63)=0 THEN rept=CHR*(153) >FZ 

1028 IF INKEY(34)=0 THEN ay=0:LOCATE 2, 4: PRINT CHR$(24) >ZM 
;STRING$(10,CHR$(233));CHR$i24i:L0CATE 68,4:PRINT CHR$( 

14! ; STRING$ ( 10, CHR$ (233) ) ; CHR$ (24) 

1029 RETURN ;FF 

1030 IF INKEY(15)=0 THEN rep$=CHR$(128) 'ETR /FR 
1035 IF INKEY(13)=0 THEN rep$=CHR*(129) EGR /FW 
1040 IF INKEY(14)=0 THEN rep*=CHR$(130) CED >FJ 
1045 IF INKEY(5)=0 THEN rep$=CHR$(131) OCR ,EG 
1050 IF INKEY(20)=0 THEN rep$=CHR$(132) EAG /FJ 
1055 IF INKEY(12)=0 THEN rep*=CHR*(133) ITR ;FR 
1060 IF INKEY(4)=0 THEN rep$=CHR*(134) ICR >EF 
1065 IF INKEY(10)=0 THEN rep$=CHR*(135) ECR ,FT 
1070 IF INKEY (11)=0 THEN reP$=CHR$(136) 'UCR >FÛ 
1075 IF INKEY (3) =0 THEN rep*=CHR$(137) UTR >EP 
1080 IF INKEY (7! =0 THEN rep*=CHR*(138) ACR >EQ 
1085 IF INKEY (6) =0 THEN rep*=CHR$(139) AGR >EW 
1087 RETURN >FK 
1095 IF INKEY(34)=0 AND INKEY(66)=0 THEN ay=0:LOCATE 2, >LH 
4: PRINT CHR$(24);STRING$(10,CHR$(233));CHR$(24):L0CATE 
68,4:PRINT CHR$(24);STRING$(10,CHR$(233)):CHR$(24):rep* 
="ESC" 

1100 IF NOT m AND stp THEN GOSUB 1200 'REPONSE TERMINEE >CP 

1105 IF m ANDtNOT al AND NOT y)THEN GOSUB 1375: IF vit T >MP 

HEN GOTO 1150 IMPRESS 

1110 IF m AND(al AND NOT y)THEN al=NOT al: GOSUB 1480' DE >UE 

LETE 

1115 IF m AND (NOT al AND y) THEN GOSUB 1510' INSERTION >HD 

1120 IF retOO THEN GOSUB 1200: GOSUB 1220: rep*="": GOTO ;BH 

695 CURSEUR 

1125 IF ti<>0 THEN GOSUB 1200:G0SUB 1415:G0T0 695'DEF'LA ;QZ 

CEnENT PAGE 

1130 IF aOO THEN DI: GOSUB 1330: El: GOTO û95 AJOUTER Ll >KE 

GNE5 

1135 IF supOO THEN DI: GOSUB 1240:EI:G0T0 695 ENLEVER >NH 

LIGNES 

1140 IF e/0 THEN GOSUB 11 70: GOSUB 1200:G0T0 695 ,NW 

1145 IF e<0 THEN GOSUB 1185: GOSUB 1200: GOTO 695 >NF 

1150 rep$="" >XJ 

1155 WEND >JG 

1160 IF rec THEN m$(s)=STRING$(75,CHR$(157)):G0T0 695 >XM 

1165 RETURN >FG 

1170 IF e=3 THEN but$(l)=STRING$(75,CHR$(157)i:L0CATE 2 >MJ 

,2:PRINT"A-";buf$(l): RETURN 

1175 FOR i=l TO 2: IF e=i THEN bu+*(i)=ra$(s):L0CATE 4,i+ >RX 

1:PRINT bu-f$(i) 

1180 NEXT: RETURN >MY 

1185 IF e=-3 THEN buf*(2)=STRING$(75,CHR*(157)):L0CATE >PN 

2, 3: PRINT"B-" ; buf $ (2) : RETURN 

1190 FOR i=-l TO-2 STEP-1:IF e=i THEN m*(s)=buf*(ABS(i) >ZH 



1195 NEXT: RETURN 



>M£ 
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1200 IF NOT rec AND aa THEN aa=0:G0SUB 2530:L0CATE#f,w, >JP 
lg:PRINT#+\m$ (s);: RETURN 

1205 IF NOT rec THEN LQCATE#+>,lg:PRINT#t,m$(s); >UG 

1210 IF NOT rec AND ay THEN n=s:c=s: GOSUB 2202 >NB 

1215 RETURN >FC 

1220 lg=lg+ret >BA 

1225 IF lg;20 THEN lg=20:LOCATE 2,2:F'RINT CHR*(7); ,TW 

1230 IF lg<l THEN lg=l:LOCATE 2,2:PRINT CHR*!.7>; >02 

1235 RETURN ,FE 

1240 GOSUB 1285 >XF 

1245 FOR i=5+l TO(M-sup) >TL 

1250 m$(i)=m$li+5up) >NZ 

1255 NEXT î >VJ 

1260 FOR i=60-(sup-l)T0 60 >U0 

1265 m*(ii=STRING*(75,CHR*(157)) >ZA 

1270 NEXT 1 >VF 

1275 GOSUB 150: GOSUB 650 >TB 

1280 RETURN >FE 

1285 GOSUB 150:L0CATE 5,2:PRINT CHR$ (24); "SUPPRIMER CO >AF 
MBIEN DE LIGNES";CHR$(24!;" "; CHR* (24) ; "INSER 
ER COMBIEN DE LIGNES" ;CHR$ (24! 

1290 LOCATE 16,3:PRINT CHR* (24) :"-??-" :CHR$(24- ,>PY 

1295 LOCATE 56,3:PRINT CHR* (24) ;"-??-" ;CHR$ (24) >PH 

1300 j=w:IF supOO THEN w=17 ELSE w=57 >EU 

1305 g=t:ag=s:;»::=x:t=0:s=3:x=24:b=0:i*=''#t'':l=2 >RV 

1310 GOSUB 1705 >XA 
1315 IF VAL (»)>(60-ag) THEN LOCATE 2.2:PRINT CHR*(7>:60 >GH 
TO 1310 

1320 IF supOO THEN sup=VAL(t*)EL5E a=VAL(t$i /PB 

1325 f=g:w=.j:s=ag:x=xx:RETURN >AF 

1330 GOSUB 1285 >XF 

1335 FOR i=60 TO((s+i)+a)STEP-l >YM 

1340 m*(i)=m*(i-a) >LC 

1345 NEXT i >VJ 

1350 FOR i=s+l TO s+a >NL 

1355 m$ ( i ) =STRING$ (75, CHR* ! 157) ) >2A 

1360 NEXT i >VF 

1365 GOSUB 150: GOSUB 650 >TB 

1370 RETURN >FE 

1375 IF rep*=CHR*(242)0R rep*=CHR* (243) THEN RETURN >VC 

1380 IF rep*=CHR*(240)ÛR rep$=CHR$ (241) THEN RETURN >VU 

1385 IF rep*="ESC"THEN rep*="": RETURN >FC 

1390 MID$(m$(5),po,D=rep* >UV 
1395 LOCATE#f,po+(w-l),lg:PRINT#f,CHR*(x);rep$;CHR*(:<): >CX 

I4Ô0 pa=Pû+i:ÎF pu; 74 THEN po=74:LOCATE 2,2:PRINT CHR$i : DE 

7)5 

1405 IF po<68 THEN LOCATE#t\po+(w-l) . lg:PRINT#f.po*;EL3 >JG 
E IF po<76 THEN LQCATE#f,po+(w-l),lg:PRINT#t,CHR*(233>; 



1410 RETURN 

1415 ah=ah+-fi 

1420 IF ah U THEN ah=l: LOCATE 



>EK 

>NA 

,2:PRINT CHR$ (7);: RETURN >AF 



1425 IF ah>41 THEN ah=41: LOCATE 2,2:PRINT CHR*(7);:RETU >CA 

RN 

1430 IF fui THEN GOSUB 1440 ELSE GOSUB 1460 >JU 

1435 RETURN >FG 



1440 LOCATE#f ,1,1s PRINTIf , CHR$ (11) 

1445 LOCATEtK,l,l:PRINT#f,USING"##";ah: 

1450 PRINT#+,CHR*(243);m$(ah); 

1455 RETURN 

1460 LQCATE#f,7B,20:PRINT#f,CHR*(10) 

1465 L0CATE#f,l,20:PRINT#f,USING"##"jah+19; 

1470 PRINT#f,CHR$(243);m$iah+19); 



>CT 
>HH 
>YC 
>FJ 
>EZ 
>MH 
>AD 
>GA 
1480 po=po-1:IF po<l THEN po=l:LOCATE 2,2:PRINT CHR*(7) >BL 

ï 

1485 MID$(m$(5),pa,l)=CHR*(157):rep$=CHR$C157) >PJ 
1490 LOCATE#t,po+(w-l) , 1 g : PR I NT#f , CHR* f ;c ) ; r ep * : CHR$ ». :; ■ ; >CT 

1495 IF po<68 THEN LOCATE#t,po+(w-l),lg:PRINT#f,po$:ELS )JR 
E IF po<76 THEN LQCATE#f,po+(w-li,lg:PRINT#f,CHR*(233); 

1500 LOCATE#f,po+w,lg:PRINT#+.CHR$(;<);MID*(m*(s;,po+l,l ;PT 

);CHR*(x) 

1505 RETURN v >FE 

1510 LOCATE 35,1:PRINT"INSERTI0N" >DC 

1515 rep*="":av=po >HD 

1520 rep*=INKEY*:WHILE rep*="":GOTO 1520:WEND >PN 

1525 IF INKEY(1)=128 OR INKEY(1)=32 THEN LOCATE 2,2:PRI >LQ 

NT CHR*(7)::rep$="":G0T0 1520 

1530 IF INKEY(8)=128 OR INKEY(8)=32 THEN LOCATE 2,2:PRI >LB 

NT CHR$ (7) ; : rep$=" " : GOTO 1520 

1532 IF INKEY(18)=0 THEN LOCATE 2,2:PRINT CHR*(7);:reP* >PC 

="":GOTO 1520 

1535 IF rep*=CHR*(32)THEN rep$=CHR$(157) >HA 

1540 IF rep*=CHR*(59)THEN rep*=CHR*(154) >HC 

1545 IF rep*=CHR*(34)THEN rep$=CHR*(155) >HB 

1550 IF rep*=CHR*(44)THEN rep*=CHR*(156) /HZ 

1555 LOCATE 2,2:PRINT CHR*(7); >YC 

1560 IF INKEY(68)=0 THEN po=av:LOCATE 35,1:PRINT CHRt(2 >HZ 

4) : STRING* (V, CHR* (233) i ;CHR*(24) :y=NOT ysRETURN 

1565 IF INKEY(8)=0 THEN av=av-l:po=av: GOSUB 1635:GOT0 1 >D6 

515 

1570 IF INKEY(1)=0 THEN av=av+l:po=av: GOSUB 1655: GOTO 1 >DV 

515 

1575 IF rep*=CHR*(240)ÛR rep*=CHR* (241) THEN GOTO 1515 ,Wï 

1580 IF INKEY(79)=0 THEN po=av:GQSUB 1480: GOTO 1515 >VR 

1585 IF INKEY(16)=0 THEN po=av: GOSUB 1675: GOTO 1515 >VU 

1590 IF rep*=CHR*(242)0R rep*=CHR* (243) THEN GOTO 1515 >WZ 

1595 pt=MID$(m$(5),l,av) >RR 

1600 q$=MID*(m*(s),av+l,ak-(av+li) >BW 

1605 p$=p$+rep$ >AC 

1610 m*(5t=p$+q$ >CF 

1615 LOCATE#+>,lg:PRINTtK,CHR*(x);m*(s);CHR*(x); >WC 

1620 rep*="":av=av+l:IF av>74 THEN av=74:L0CATE 2,2:PRI >NP 

NT CHR* (7); 

1625 IF av<68 THEN LOCATE#f,av+(w-l),lg:PRINT#f,po*;ELS >JB 

E IF av<76 THEN L0CATE#f.av+(w-l) , lg:PRINT#f ,CHR*;233) ; 

16-30 GOTG 1520 . : HF 

1635 IF poU THEN po=l:rep*="": LOCATE 2,2:PRINT CHR*(7) >AP 

i 

1640 IF po<68 THEN LQCATE(K,po+(w-l).lg:PRINT#f,po*;ELS >JH 
E IF pa<76 THEN LOCATE**, po+(w-l),lg:PRINT#f, CHR* (233); 
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1645 L0CATE#t,po+(w),lg:PRINT#t,CHR*ix)il1ID$im$i5),po+l .TV 

,l);CHR$(x); 

1650 RETURN >FF 

1655 IF po/74 THEN po=74:rep$="": LOCATE 2, 2: PRINT CHRK >C« 

7): 

1660 ÎF po<68 THEN LOCATEttf , po+ tw-1 ) , 1g : FRINT#f , po$ : EL5 >JK 

E IF po.76 THEN L0CATE#t,Po+(w-l),lg:PRINT#f,CHR*(233); 

1665 LQCATE#f,po+(w-2),lg:PRINT#t,CHR*(:<);MID$(ffl*(5),po >WA 
-l,l);CHR$(x); 

1670 RETURN >FH 

1675 d$=MID$(m$(s),l,po-l) >UB 

1680 e$=MID*(m*(5),po+l,ak-(po+l))+CHR*ll57) >LV 
1685 m$(si=d*+e* >BD 

1690 LQCATE#f,w,lg:PRINT#f.CHR$(x):iii*(s);CHR$(x>; >MF 
1695 IF po<68 THEN LOCATE#f,po+(w-l),lg:PRINT#f,po*:ELS >JU 
E IF po;.76 THEN L0CATE#f.po+iw-l),lq:PRINT#t,CHR$(233): 

1700 RETURN :>FB 

1705 m=-l:al=0:rec=0:ret=0:stp=0 >BA 

1710 LGCATE#t,w-l,s >NQ 

1715 FRINT#t.CHR*i243);CHR$ix);5TRING$(l,CHR$(3";j;CHR* >UK 
lx);CHR$(242) 

1720 t$="" >EB 

1725 LÛCATEIH,w,s >HN 

1730 WHILE m AND LEN(t$K=l >VY 

1735 rep$=INKEY$:WHJLE rep*="":GQTÛ 1735:WEND -PF 

1740 IF INKEY(1B)=0 THEN stp=NGT stp:m=NOT m ,MD 

1745 IF INKEY(79)=0 THEN al=NOT al >BH 

1750 IF INKEY(16)=0 THEN rec=NOT rec:m=NOT m >MP 

1755 IF INKEY(8)=0 THEN ret=-l:m=NOT m >FR 

1760 IF INKEY(1)=0 THEN ret=+l:m=NOT m >FC 

1765 IF NOT b AND(ASC(rep$K48 OR ASC(rep*)/57)AND ASC( >DL 
rep$)<>46 THEN PRINT#f,CHR$(7);:rep$="'"TEST CODE ASCII 

1770 IF NOT m AND stp THEN GQSUB 1805 >CQ 

1775 IF m AND NOT al THEN GQSUB 1840 >BD 

1780 IF m AND al THEN GOSUB 1820 >XC 

1785 IF retOO THEN GOSUB 1865 >XF 

1790 WEND >KB 

1795 IF rec THEN GOTO 1705 , Tû 

1800 RETURN >FC 
1805 IF b=-l THEN LÛCATE#t,w-l,s:PRINT#{. " ";CHR$(x):t$ >UA 
;SPACE$(l-LENit$));CHR$(x);" "; 

1810 IF b=0 THEN bo=VAL(t$):LÛCATE#t,w-l,s:PRINT#f," "; >LJ 
CHR$(x);:PRINTIH,USING i$;bo;:PRINT#f.SPACE*(l-LENCi$)) 
;CHR$(x);" "; 

1815 RETURN >FJ 

1820 rep$=CHR$(8)+CHR$(16) >UK 

1825 IF LEN(t*)>=l THEN t$=LEFT$(t*,LEN(t$)-li:PRINT#f, >MU 
CHR*ix);rep$;CHR*(x);ELSE PRINT#f,CHR$(7); 

1830 al=NOT al >VG 

1835 RETURN >GA 

1840 IF NOT ao THEN rep$4JPPER$(rep$) >EV 

1845 IF LEN(t$)=l THEN PRINT#F,CHR» (7);: RETURN >QM 

1850 PRINT#f,CHR$(x);rep$;CHR$tx); >DR 

1855 t$=t$+repï >BH 

1860 RETURN >FJ 



1865 IF b=-l THEN LOCATE#t,w-l,s:PRINT#t, " ";CHR$ixi;t$ 

:SPACE*(l-LEN(t$)):CHRt(x);" "; 

1370 IF b='v' TKEN bû=VALit»;:L0CATE#{,w-1.5:FRINT#T. !l ": 

CHR$(x);:PRINT#f,USING i$;bo;:PRINT#f,SPACE$U-LENu$)) 

;CHR$(x);" "; 

1875 RETURN 

1880 0UT(S<FA7E),1 

1885 FOR 1=1 TO 2000: NEXT 

1890 0UT<1FB7F),4 

1895 OUT (iFB7F),2-PEEK(P£EK{î(BE7D)+256*PEEK(«iBE7E) 1 

1900 dk-INP (&FB7F) 

1905 0UT(i.FA7E),0 

1910 IF(dk AND 32)=0 THEN LOCATE 55,2:PRINT CHR$(24):"D 

ISQUETTE NON INSEREE" ; CHR* (24) : PRINT CHR$ (7) ; : td5=0:CA 

LL S.:BB18:G0TÛ 1940 

1915 IFtdk AND 64)THEN LOCATE 55.3:PRINT CHR*(24i;"PR0T 

ECTION EN ECRITURE" ;CHR$ (24): PRINT CHR*(7);:tds=0:CALL 

?.:BB18:G0T0 1940 

1920 tds=-l 

1925 LOCATE 55, 2:PRINT CHR$(24); "DISQUETTE EN PLACE 



>UG 

13 



;GE 
>LH 
>TY 
>LF 

m 
m 

/LE 
>QL 



■LU 



>WF 
>EC 



1930 LOCATE 55.3:PRINT"DISÛUETTE NON PROTEGEE ";CHR$(24 >EJ 
) 

1935 CALL 8-BB18 >VE 

1940 RETURN >FH 

1945 DIrGÛSUB 150 >LK 

1950 au=0:v=0 ;MF 

1955 LOCATE 3,2 >YA 

1960 PRINT" IMPRESSION SUR ECRAN DEPART ";CHRt(24>; >HN 
"- -";CHR$(24):" DEFILEMENT EDITER SUR PAFIER" 

1965 LOCATE 11,3 ;EF 

1970 PRINT CHR$\24);"--???--";CHR$(24);" ARRIVE >CJ 
E ";CHR*(24);"- -";CHR*i24);" DEFILEMENT ";C 
HR$(24);"--???--";CHR$(24) 

1975 f=0:w=13:s=3:x=24:b=-l:l=3:G0SUB 1705 >KB 

19B0 IF t*=""OR t$="OUI"THEN au=-l ELSE au=0 >KB 

1985 IF au=0 THEN t$="NON"ELSE t$="OUI" >FA 

1990 LOCATE w-2,s:PRINT CHR$(24) ;"--";»:"— ";CHR$(24) >YM 

1995 f=0:w=63:s=3:x=24:b=-l: 1=3: GQSUB 1705 >LA 

2000 IF t$=""OR t$="NON"THEN v=0 ELSE v=-l >HV 

2005 IF v=0 THEN t$="NON"ELSE t$="OUI" >EH 

2010 LOCATE w-2,s:PRINT CHR$(24) ; "— "; t$; "— ";CHR$(24) >YW 

2015 f=0:w=37:s=2:x=24:b=-l:l=2:G0SUB 1705 >KQ 

2020 IF t$=""THEN t*="l" >QN 

2025 IF VflUttKl OR VAL(t$)>60 THEN GOTO 2015 ELSE n=V >DX 

AL(t$) 

2030 LOCATE w,s:PRINT CHR$ (24);: PRINT USIN6"##";n::PRIN >NY 

T CHR$(24) 

2035 +=0:w=37:s=3:x=24:b=-l:l=2}GOSUB 1705 >KU 

2040 IF t$=""THEN t$="60" >RR 

2045 IF VAL(t$Kl OR VAL(t$)>60 THEN GOTO 2035 ELSE c=V >DP 

AL(t$) 

2050 LOCATE w, s: PRINT CHR$ (24):: PRINT USING"##";c;:PRIN >NN 

T CHR$(24) 

2055 IF c<n THEN LOCATE 2, 2: PRINT CHR$(7!:G0T0 2015 >UÛ 

2060 IF au THEN GOSUB 2075 >TG 

2065 IF v THEN GOSUB 2200 >RQ 
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2070 RETURN 
2075 CLS#1 

2080 k=l:am=0:an=-l:PEN#l,l:PAPER#l,0:CLS#l 
2085 FOR as=n TO c 
2090 LOCATE 2,2:PRINT CHRt(7ï 

2095 IF k/20 THEN LÛCATE#l,78,20:PRINT#l,CHRt(10):lg=2Ù 
EL3E lg=k 

2100 LQCATE#l,l,lg:PRINT#l," "; 
2105 p=74:i=0:ai=2:aj=4 
2110 i=i+l 

2115 Y$=ftfD$(iti«5i,i,li 
2120 d=ASC(v$) 

2125 IF ASC (vt) =154 THEN vt=CHRt(59) 
2130 IF ASC (vt) =155 THEN vt=CHRt(34) 
2135 IF ASC(vt)=156 THEN vt=CHRt(44> 
2140 IF d=143 THEN !M0DE12:am=-l:an=0: GOTO 2110 
2145 IF d=144 THEN !M0DE22:an=-i:ain=0: GOTO 2110 
2150 IF ASC(vt)>139 THEN vt=CHRt(32) 
2155 IF d>160 AND d<173 THEN vt=CHRt(d) 
2160 IF(am ANDiai-INT(ai) <>0) )THEN ai=ai+0.5 
2165 IF am THEN LOCATE#l,ai,lg:PRINT#i,vt:ai=ai+i:aj=aj 
+2:p= P -l 

2170 IF an THEN LOCATEtl,aj,lg:PRINT#l,vt:aj=aj+l:ai=ai 
+0.5 

2175 IF i<p THEN GOTO 2110 
2180 k=k+l 

2185 IF k=21 OR k=41 THEN CALL &BB18:CALL *.BB18:CALL ?/B 
B18 

2190 NEXT as 
2195 RETURN 

2200 PRINT*8. CHRt (27 ) ; CHR* 164 ) 

2202 IF bl THEN PRINT #8,CHRt(27)+"M"; ELSE PRINT #8,CH 
R$(27)+"P"; 
2205 FOR as=n TO c 
2210 PRINT#8, " "; 
2215 FOR 1=1 TO 74 
2220 vt=MID»(mt(as),i,l) 
2225 d=ASC(v$) 
2230 IF d>156 THEN vt=CHR$(32) 

2235 IFld/127 AND d<157)OR(d/l60 AND d<173)THEN v$=t"$(d 
-127) 

2236 IF(d>144 AND d<148) THEN IF 1 
ELSE PRINT#8, " " 

2240 IF i<74 THEN PRINT#8,vt;ELSE PRINT#8,vt 

2242 IF d=148 THEN IF i<74 THEN PRINTI8," ";ELSE PRINT# 
8," " 

2243 IF(d>150 AND d<153) THEN IF i<74 THEN PRINT#8," "; 
ELSE PRINT#8, " " 

2245 NEXT 1 
2250 NEXT as 
2255 RETURN 

2260 DI:GOSUB 150:LOCATE 5,2 
2265 PRINT CHRt(24);" A ";CHRt<24);" 
CHR$(24);" ";CHRt(24); n E ";CHR*(24>; 
";CHRt(24);" ";CHRt(24);" T ";CHR$(24);" 
" Y ";CHR$(24) 
2270 LOCATE 46,2 
2275 PRINT CHRt(24);" Q ";CHRt(24);" ";CHRt(24);" W 



';CHRt(24);" Z "j 
' "; CHRt (24):" R 
";CHR$(24): 



>FC 
>L6 
>NL 
>LN 
>XJ 
>LL 

>BJ 
>RH 

)JF 

m 

/RE 

;CX 
/CL 

>cu 

/PU 
>PB 
/CP 
>DF 
;MN 
>MZ 

>FG 

>TT 

/KG 
>ZH 

>EE 

>6A 
>YH 

;KA 

>lG 

m 

>LQ 

>RU 
>TA 
>WD 
/CU 

>RH 

>MT 
>CC 

>Û6 

>VJ 
>EB 
>FH 

m 

>ZH 



>EC 

>ZY 



CHR$(24i;" ";CHR$(24i;" E ";CHR$(24):" ";CHR$(24); i ' R 
";CHR$(24);" ";CHR$(24);" T ":CHR$(24);" "; CHRt (24); 
' Y ";CHRt(24i 

2280 LOCATE 30,3 >DH 

2285 PRINT" — > ";CHRt(24);"-l-";CHRt(24);" ";CHRt^24 >CV 
); "-2-"; CHRt (24);" < — " 

2290 ct=INKEYt:WHILE ct="":GOT0 2290: WEND >JD 

2295 IF INSTR("12",ct)=0 THEN GOTO 2290 >EK 

2300 h=-(ct="l")-2*(ct="2") >TL 

2305 ON h GOSUB 2315,2330 >RC 

2310 LOCATE 2, 2: PRINT CHRt (7): GOSUB 150: RETURN M 

2315 KEY DEF 67,0,97,65:KEY DEF 59,0, 122, 90: KEY DEF 69, >EW 
0,113,81 

2320 KEY DEF 71,0, 119, 87: KEY DEF 29,0, 109, 77: KEY DEF 38 ;EP 
,0,58,42 

2325 RETURN >FF 

2330 KEY DEF 67,0, 1 13,81 :KEY DEF 59,0, 119, 87: KEY DEF 69 ;EB 
.0,97,65 

2333 KEi DEF 71,0, 122, 9v: KEY DEF 29,0,58, 42: i : ,Et DEF 3o, )EK 
0,109,77 

2340 RETURN ,FC 

2345 DI: GOSUB 150:G0SUB 360 ,VA 

2350 CLS#1 ;LC 

2355 WIND0W#0.2,79,2, 18:PAPER#0,0:PEN#0, 1:CLS#0 : RR 

2360 CAT >ZA 

2365 CALL &BB18 >VC 

2370 L0CATE#1,6,19 /MW 

2375 PRINTil, CHRt (24); "DONNEZ LE NOM DU FICHIER >KH 

A CHOISIR :";CHRt(24) 

2380 L0CATE#1,55,18:PRINT#1,"--/ ";CHRt(24);" >NQ 
. "; CHRt (24) 

2385 L0CATE#l,55,20:PRINT#l,"-> ";CHRt(24i;" >NN 
. "; CHRt (24) 

2390 f=l:w=61:s=18:x=24:b=-l:l=12:G0SUB 1705 >MH 

2395 gt=tt /JK 

2400 L0CATE#l,61,19:PRINT#l,"C0NFIRhATI0N";CHRt(7) >«F 

2405 f=l:w=61:s=20:x=24:b=-l:l=12:G0SUB 1705 >MX 

2410 ht=tt >HJ 

2415 IF gtOhtTHEN L0CATE#1, 1,20: PRINT CHRt(7):G0T0 239 >AY 


2416 IF ab THEN RETURN ELSE ab=0 >ZP 

2420 IF gtO""AND htO""THEN LOCATE #1,6,19 ELSE GOTO 2 >ZM 
429 

2421 PRINTH, CH» (24); "EFFACER LE] REN ;GE 
OMMER [ R ]";CHRt(24) 

2422 ct=INKEYt:WHILE ct="":GOTO 2422: WEND ;JX 

2423 ct=UPPERt(ct) >HD 

2424 IF INSTR("RE",ctJ=0 THEN GOTO 2422 >EG 

2425 h=-(ct="E")-2*lct="R") >TB 

2426 ON h GOSUB 5000,6000 >RY 

2427 GOTO 2350 >NC 

2429 WINDOW#0, 2, 79, 19, 21 : CLS#0: WINDOW#0, 2, 79. 22, 25: PAPE >UD 
R#0,1:PEN#0,0:60SUB 150:RETURN 

2430 wt="SAUVEGAR"+". MIS": LOCATE 29,4:PRINT CHRt(7); >XH 
2435 GOSUB 2455 >YC 
2440 LOCATE 28,4:PRINT CHRt (24); "SAUVEGARDE AUTOMATIQUE /FM 
"; CHRt (24);: GOSUB 525 

2445 IF iOlOOOO THEN GOSUB 2460 >YC 
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2447 IF ay=-l THEN LOCATE 2, 4: PRINT" IMPRESSION" : LQCATE 

68, 4,-PRINT" IMPRESSION" 

2450 PRINT CHR$(7);:RETURN 

2455 LQCATE#0,l,4:PRINT#0,CHR$<24);STRING*i78,CHR*(233) 

);CHR$ (24);: RETURN 

2460 qtt=50-INT(LEN(k$»:qtt=qtt/2:L0CATE#0,15,4:PRINT 

CHR* (24) ; STRIN6$ (qtt ,CHR* (233) ) ; k$; STR1NG* iqtt , CHR$ (233 

));CHR$(24):RETURN 

2465 j=w:q=f:aq=s:ae=iq:xx=x:bm=al:bb=rec:bd=ret:bh=stp 

:bn=m 

2470 f=0:w=15:s=4:x=24:b=-l:l=5Ô:ao=-l:G0SUB 1705:ao=ô 

2475 k*=t* 

2480 60SUB 150:t=q:w=j:s=aq:lq=ae:x=xx:al=bm:rec=bb:ret 

=bd:stp=bh:m=bn:BOSUB 650: m=û 

2485 RETURN 

2490 FOR ax=l TO LENtk*) 

2495 j$=MID$ik$.ax,l/ 

2500 aw=(po-l)+ax 

2505 IF aw<75 THEN !1ID*(«fls),aw,l)=j» 

2510 NEXT ax 

2515 LÛCATE#f,w,lq:PRINT#f,CHR*(x;;ni$(5);CHR$(x»! 

2520 po=po+LEN(k$):IF po;68 THEN pq=68 

2525 RETURN 

2530 IF MID» (m* is) , 75, 1 ) =CHR* (158) THEN PRINT CHR*(7);:R 

ETURN 

2535 IF *$(s)=STRIN6$'75,CHR*(157))THEN PRINT CHR*(7);s 

RETURN 

2540 ns=0 

2545 6QSUB 2565 

2550 IF INSTRtli*,CHR*U57>)*0 THEN PRINT CHR*(7);:RETU 

RN 

2555 GOSUB 2645 

2560 RETURN 

2565 li$=(n$i5):ac=LEN(ll*) 

2570 FOR tl=ac TO 1 STEF-1 

2575 lb*=MID*(ll$.tl,i; 

2580 IF lb*=CHR*(157)0R lb*=CHR*t32)THEN ac=ac-l ELSE t 

1=1 

2585 NEXT tl 

2590 ll*=MID$(ll$,l.ac) 

2595 FOR tl-1 TO ac 

2600 lb$=MID$(llî,tl,li 

2605 IF lbl=CHR»(157)0R lb*=CHR$(32)THEN HID$(ll*,tl,l) 

=CHR$( 158) ELSE tl=ac 

2610 NEXT tl 

2615 FOR tl=l TO ac 

2620 lb*=MID*(ll*,tl,lJ 

2625 IF lb$=CHR*(32) THEN MID$(ll*.tl,l)=CHR$<157> 

2630 NEXT tl 

2635 RETURN 

2640 ' 

2645 IF LEN(11$)=74 THEN o*=ll$:GOTO 2720 

2650 FOR tl=l TO LEN(llS) 

2655 IF MID$(ll$,tl,l)=CHR$( 157) THEN ns=r,5+l 

2660 NEXT tl 

2665 t=74-LEN(ll») 

2670 IF ns=0 THEN PRINT CHR$(7);:3ÛT0 2720 

2675 FOR bf=l TO ns:sp(bf)=t\ns:NEXT 



>JH 

>WC 
>BD 

>ZU 



>NV 

>m 

M 
>Xfl 

;GC 
>RM 
;F2 
>LY 
/EQ 
>EF 
/WC 

;>fl 

>FH 

;FP 

>JF 
)FD 

>ve 

>CT 

/YG 
>F6 
,v ! C 
>TE 
>RV 
>BW 

>GE 
>RX 

;tlJ 
>RH 

>m 

>FD 
>MB 
>RK 
>UY 
>FF 
>FK 
>YE 
>HW 
/TV 
>MB 
>FJ 
;MX 
>JX 
>FB 



2680 FOR bf=l TO t-ns*(t >n5):sp<bf )=sp(bf>+l:NEXT >VD 

2685 bf=l:o*="" >VG 

2690 FOR tl=l TO LEN(IU) >TZ 

2695 o*=o*+MID*(ll*,tl,l) >TM 

2700 IF NlD*Ul$,tl,l)OCHR*(157)THEN 2715 >JX 

2705 o$=o$+STRING$lsp(bf),CHR$(157)) >EJ 

2710 b-f=b++l >BA 

2715 NEXT tl >FK 

2720 o*=o$+CHR$ ( 158 ) : ra$ ( s ) =o* >WF 

2725 RETURN >FK 

2730 FOR tl=74 TO po STEP -1 >VH 

2735 MID$(m$(s),tl,l)=CHR$(157> >YN 

2740 NEXT tl >FH 

2745 RETURN >B1 

2750 FOR t 1=1 TO po >MF 

2755 MID$((»$(s),tl,l)=CHR$(157) >¥K 

2760 NEXT tl >FK 

2765 RETURN >GD 

2780 RESUME 205 >AJ 
3000 bl=0:LOCATE #2,1,1:PRINT K,"»P«": LOCATE #2,76.1 >6K 
:PRINT #2,">/P<X":RETURN 

4000 bl=-l: LOCATE #2,l,i:PRINT #2, "»E<<": LOCATE #2,76, /HL 
hPRINT I2, U »E«":RETURN 

5000 IERA, eh*: RETURN >QE 
6000 acn$=h$: LOCATE #1,6, 19:PRINT#1, CHR* (24; ; "DONNEZ >XD 
LE NOUVEAU NOM DU FICHIER !";CHR*(24] 

6030 ab=-l:GOSUB 2380 >PX 

6040 IF g*<>""AND h*<>" u THEN iREN,êh*,êacn* >KN 

6050 ab=0: RETURN >MN 

7000 FOR XWA= 41507 TO 41699 >Uk 

7005 READ XWB*:PÛKE XWA,YAL("&"+XWB*i >FN 

7010 NEXT XWA >QF 

7015 DATA 01,2C,A2,21,5C,A2,C3,D1 >ZT 

7020 DATA BC.3D.A2,C3,60.A2,C3,73 >ZU 

7025 l'ATA Hi,L3,oB,M2,C3, -'E,m2,C3 .iA 

7030 DATA B6,A2,4D,4F, 44,45,30,81 >ZR 

7035 DATA 4D.4F,44,45,31.B1,4D,4F >ZF 

7040 DATA 44,45,30,B2,4D,4F,44.45 ,ZQ 

7045 DATA 31, B2,4D,4F, 44,45,32, B2 >ZF 

7050 DATA 00, 00, 00, 00, 00, FE, 00, CO >YB 

7055 DATA 3E,00,32,C8,B1,3E,CC,32 >ZK 

7060 DATA CF,B1,3E,33,32,D0,B1,C9 ZC 

7065 DATA FE.00,C0,3E,01,32,C8,B1 >ZG 

7070 DATA 11,CF,B1,21,87,A2,01,04 >ZQ 

7075 DATA 00. ED, BO, C9, 88, 44, 22, 1 1 >ZK 

7080 DATA FE,00,C0,3E,00,32,C8,B1 ,ZC 

7085 DATA 3E,F0,32,CF,B1,3E,0F,32 >ZK 

7090 DATA DO,B1,C9,FE,00,CO,3E,01 >ZX 

7095 DATA 32,C8,B1, 11. CF,B1, 21,62 >ZH 

7100 DATA A2,01,04,00,ED,BO,C9,CO >ZM 

7105 DATA 30,0C,03,FE,00,C0,3E,02 >ZZ 

7110 DATA 32,C8,B1,11,CF,B1,21,CA >Zfl 

7115 DATA A2,01,08,00,ED,B0,C9,80 >ZL 

7120 DATA 40,20,10,08,04,02,01,00 >YF 

7125 DATA 06,FF,21,00,C0,7E,A8,77 >ZE 

7130 DATA 23,3E,00,BC,20,F7,C9,00 >ZK 

7135 DATA 00 >VK 

7140 RETURN >FF| 
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DUCHFT COMPUTERS & SIREN SOFTWARE 

51 Saint-George Road - CHEPSTOW - NP6 5LA - ANGLETERRE. Tél. +44.291.257.80 

EN EXCLUSIVITE : DU MATERIEL ET DES PROGICIELS SUPER CHOUETTES EN FRANÇAIS 
POUR AMSTRAD - SCHNEIDER 464/664/6128 

MJUKIb pour AMSTRAD CPC 

La SOURIS de SIREN SOFTWARE (manuel en Français) est 100% compatible avec la syntaxe de la Souris AMX et compa- 
tible avec tous les programmes pour Souris AMX. 

Notre SOURIS est aussi compatible avec la plupart des progiciels et jeux utilisant une manette de jeu! 
Indispensable pour le travail sérieux et indispensable pour les jeux. Permet une grande précision avec les stratégies, 
aventures et arcades. 

Prête à fonctionner, trois boutons opérationnels, branchement comme une manette, grande douceur de maniement 
et simple à utiliser. 

Livrée avec la super disquette française de Gestion Assistée par Icônes : GAI OXFORD. 

La SOURIS de SIREN SOFTWARE est disponible et ne vaut que 520.00 FF Port compris avec GAI OXFORD gratuit 
(Pour expédition Hors Europe ajouter 30 FF S.V.P.) 



OFFRE PROMO : SOURIS avec GAI OXFORD + OXFORD PAO. (voir ci-dessous) = 700.00 FF 



port compris. 



ENFIN ! UN PROGRAMMATEUR D'EPROM ULTRA RAPIDE 

POUR AMSTRAD CPC ! 

Se relie à l'ordinateur en un instant. Comporte un support à force d'insertion nulle pour travail soigné et rapide. 
Faites une copie de sauvegarde de vos ROMS commerciales. Transférez vos programmes personnels Basic ou ma- 
chine code, routines, RSX, sur EPROM. Copie de ROM originale en RAM ou sur disquette. Programme les EPROMS 8K 
ou 16K à partir de RAM disquette ou K7. Programmation ultra-rapide : une EPROM de 16K est programmée en moins 
de 2 minutes et demi. L'interface PROGRAMMATEUR D'EPROM est livrée avec son logiciel utilitaire disquette 3" 
ou K7 (spécifiez S.V.P.) transférable sur EPROM. Instructions complètes en français. 

L'interface PROGRAMMATEUR D'EPROM ne vaut que 550.00 FF (port compris) 
(Pour expédition hors Europe ajouter 40 FF S.V.P.). 

CARTE D'EXTENSION ROMS. Cette carte peut contenir jusqu'à 8 ROMS (8 oui 6 K) pour votre AMSTRAD. 
Imaginez, traitements de texte, désassembleurs, RSX à gogo, tableurs etc.. (plus tout ce que vous aurez réalisé avec le pro- 
grammateur d'EPROM !) sur la même carte d'extension en même temps ! 

Les enragés de la ROM ont la possibilité de relier DEUX cartes ensemble (sauf CPC 464) pour combiner un total de 1 6 ROMS. 
Extrêmement simple à utiliser ! Manuel complet et détaillé en Français. 

CARTE D'EXTENSION ROMS seulement 495.00 FF DEUX CARTES D'EXTENSION pour 900.00 FF 

Pour envoi avion hors Euro pe ajouter 30 FF (1 carte) ou 50 F (2 cartes) S.V.P. 

Note : pour bénéficier de la ristourne, les 2 cartes doivent figurer sur la même commande. 

LOGICIELS UTILITAIRES EN FRANÇAIS : 
OXFORD PAO. 

La Publication Assistée par Ordinateur pour CPC 6128 (ou 464/664 avec 128 K) 

Edition, copie et mouvement de blocs de travail entiers. Des douzaines de motifs, icônes, figures géométriques, 

bordures etc.. fournis et redéfinissables. Intégrez texte, vos copies d'écran personnelles, etc.. à vos documents. 

Compatible avec SOURIS Siren (et AMX), avec imprimantes type EPSON et IBM. 

Edition de caractères et motifs à un demi pixel près. Zoom, effet miroir, etc.. 

Copies imprimées multiples, format entier, demi-format, quart de format, etc.. 

Entièrement en français. Enfantin à utiliser. 

OXFORD PAO. sur disquette 3" pour CPC 6128 (ou 464/664 avec 128 K) 250.00 FF port compris. 

(Pour expédition hors Europe ajouter 10 FF S.V.P.) 

lURBOLOCKS pour transfert automatique de K7 à disquette des programmes récents protégés par le 
NOUVEAU "Speedlock". 

TURBOLOCKS sur disquette 3" (464/664/6128) 150.00 FF port compris. 

(Pour expédition hors Europe ajouter 10 FF S.V.P.) 

CASSELOCKS sauvegarde K7/K7 des programmes récents protégés par le NOUVEAU "Speedlock" 
CASSELOCKS sur K7 : 100.00 FF sur dise 120.00 FF port compris 
(Pour expédition hors Europe ajouter 10 FF S.V.P.) 

VENTE EXCLUSIVEMENT PAR CORRESPONDANCE - Envoyez vite votre commande (en Français) à : DUCHET COMPUTERS 

51, Saint-George Road - CHEPSTOW NP6 5LA - ANGLETERRE. Téléphone : +44.291.257.80 

ENVOI IMMEDIAT LE JOUR MEME PAR AVION dans le Monde entier 

REGLEMENT PAR : 

MANDAT POSTE INTERNATIONAL en francs - EUROCHEQUE en livres sterling (vous faites la conversion) 

ou CHEQUE BANCAIRE en livres sterling compensable en Angleterre (votre banque fait la conversion) 

ou carte de crédit internationale VISA, EUROCARD, MASTERCARD, ACCESS 

Rédiger les mandats, etc.. à l'ordre de QUCHET Computers. 

Si vous êtes pressé, réservez votre commande EN PARLANT EN FRANÇAIS ! 

Téléphonez à Caroline, Jean-Pierre ou Didier au 44.291.257.80 de 8 h à 19 h. 

les programmes en français sont Copyright DUCHET COMPUTERS & SIREN SOFTWARE. Leur diffusion commerciale même partielle sous quelque titre 

ou forme que ce soit et par qui que ce soit est formellement interdite. 





MIRAGE IMAGER version TURBO 

enfin le TRANSFERT et la SAUVEGARDE ULTRA-RAPIDES ! 



RECHARGEZ UN PROGRAMME DE 64 Ko EN 14 SECONDES ! 

APRES L'AVOIR TRANSFERE EN UNE VINGTAINE DE SECONDES 

avec la version TURBO du MIRAGE IMAGER 

LE PERIPHERIQUE QUI TRANSFERE et SAUVEGARDE 
100 % DES PROGRAMMES 



LE MIRAGE IMAGER TURBO 



CPC 464/664 : 
seulement450 FF 

Port compris 




CPC 6128: 

seulement 500 FF 

Port et câble 6128 compris 



S.V.P. Spécifier si le connecteur 

du BUS D'EXPANSION est mâle ou femelle. 



MANUEL COMPLET de 3000 mots entièrement en Français 

Le MIRAGE IMAGER version TURBO est disponible maintenant. 
Chez nous, la RUPTURE DE STOCK N'EXISTE PAS. 



Ses caractéristiques : 

SAUVEGARDE 64 Ko SUR DISQUETTE EN UNE VINGTAINE DE SECONDES 

RECHARGE UN PROGRAMME DE 64 Ko EN 14 SECONDES ! 

TRANSFERT K7 / DISQUETTE ou DISQUETTE / CASSETTE et SAUVEGARDE K7 / K7 ou 

DISQUETTE / DISQUETTE de tout programme protégé ou non jusqu'à 128 Ko (64 Ko sur 464/664) 

SAUVEGARDE K7 EN 3 VITESSES (normale, rapide et TURBO) 

TOOLKIT incorporé qui affiche les adresses, INK, PEN et autres détails des programmes 

et écrans, permettant un bidouillage acharne et intensif. 

Grâce au TOOLKIT, contemplez instantanément les résultats des bidouillages effectues I 

MODE 64 K ou 128 K avec les CPC 6128 

Se branche en 2 secondes ! 

Extrêmement simple à utiliser : géré par menus et l'on presse UN SEUL BOUTON pour 



transférer /sauvegarder /recharger. 

Ne prend aucune place en RAM, n'est donc pas détectable par l'ordinateur. 

Très amical, détecte les erreurs de l'opérateur 

8 K RAM et 8 K ROM incorporés 

Compressa afin d'utiliser un espace minimum sur disque ou cassette 

Sauvegarde en un seul bloc (pratique pour archivage) 

Compatible avec les ROMS et cartes d'extension et permet aussi de les invalider 

Pour usage personnel 

Comporte un bus d'extension pour raccorder d'autres périphériques 

Stoppez un jeu a n'importe quel moment, sauvegardez et reprenez-le au même endroit 

TOUS les programmes transférés fonctionnent ! 



VENTE PAR CORRESPONDANCE - Envoyez votre commande (en Français) directement à : 

DUCHET Computers - 51, Saint-George Road - CHEPSTOW NP6 5LA - ANGLETERRE - Téléphone : +44 - 291 257 80 

ENVOI IMMEDIAT LE JOUR MÊME PAR AVION dans le Monde entier (Hors Europe ajouter 25 FF S.V.P.) 

REGLEMENT PAR: 

• MANDAT POSTE INTERNATIONAL en francs 

• EUROCHEQUE en livres sterling 
ou CHEQUE BANCAIRE en sterling compensable en Angleterre 

• CARTES DE CREDIT INTERNATIONALES par écrit ou par téléphone : VISA, EUROCARD, MASTERCARD, ACCESS. 



REDIGER LES MANDATS, etc.. à L'ORDRE DE DUCHET Computers. 

Si vous êtes pressé, réservez votre commande EN PARLANT EN FRANÇAIS ! 
Téléphonez à Caroline/ Jean-Pierre ou Didier au 44 291 257 80. 
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ROGRAMMATION 



GESTION DE PAGES-ECRANS 

HARDCOPY 

SAUVER IMAGE SUR DISQUETTE 

CONSTRUCTION D'UNE MIRE 

IMAGES AVEC ABERRATION 

EN BARILLET IMAGE FISH EYE 



AVANCEE 



CAO 



SUR 



MICRO 



CPC 
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ème 



PARTIE 



Jean-Pierre PETIT 



J 



éan-Pierre PETIT est directeur de recherche au CNRS. Il est l'auteur d'un logiciel de CAO de 

120 Ko Intitulé AMSTRAD 3D, assorti d'un livre du même nom, édité par PSI. Le logiciel a été 

délibérément mis dans le domaine public, c'est-à-dire que vous pouvez le copier sur une 

disquette AMSTRAD CPC en toute tranquillité chez un revendeur ou un ami. 

Ce livre est un gros mode d'emploi du logiciel pour non programmeur. 

Mais ce programme est riche de ficelles de programmation, liées à l'imagerie 3D. 

Dans cette suite d'articles, Jean-Pierre PETIT explique au lecteur toutes ses astuces, ce qui 

lui permettra de construire lui-même son propre programme de CAO. 



INTRODUCTION 

Nous allons équiper les sections VOIR 
et DES de sous-programmes permettant 
de stocker des images sur disquette et 
de faire des hardcopies (sur imprimante 
DMP 2000). Mais auparavant, nous al- 
lons nous doter de la possibilité de gérer 
des pages-écrans. 



BANKMAN .BAS 1K 
BANKMAN .BIN 2K 

Ce que vous pourrez vérifier en mettant 
votre disquette C/PM PLUS dans le lec- 
teur et en faisant CAT. Vous vérifierez 
également que cette disquette porte un 
programme en C/PM intitulé : 



PIP. 



.COM 9K 



C'est le programme, l'utilitaire, que nous 
allons utiliser pour installer les deux sec- 
tions de BANKMAN sur notre disquette 
AMSTRAD-3D. Mais si vous essayez de 
faire RUNTIP, cela ne donnera rien. Il 
vous faut d'abord passer en C/PM, grâce 
à l'ordre-clavier : 
ICPM 

Le I est le caractère indiqué à droite de 



INSTALLATION 

DE BANKMAN 

SUR DISQUETTE 

BANKMAN est une routine permettant de 
gérer le second bloc mémoire de 64 K 
présent dans le CPC 6128, bloc qui 
n'existe pas sur un 464 muni d'un lec- 
teur externe. Les lecteurs qui dispose- 
ront de ce matériel devront en tenir comp- 
te. 

BANKMAN existe sur la disquette système 
C/PM PLUS, en deux parties, toutes deux 
nécessaires : 



REMARQUE 

Certains lecteurs semblent avoir eu 
des difficultés à se procurer la dis- 
quette AMSTRAD-3D. En plein ac- 
cord avec l'éditeur, vous pouvez, le 
cas échéant, adresser une disquet- 
te AMSTRAD vierge à l'auteur avec 
50 F pour le port, ou plus simplement 
90 F sans la disquette à l'adresse 
suivante : 

Jean-Pierre PETIT, Chemin de la 
Montagnère, 84120 Pertuis, Vauclu- 
se. 



Signalons que nous pouvons désor- 
mais vous fournir une version tour- 
nant sur 464 avec lecteur externe, 
ceci grâce aux modifications appor- 
tées. En effet, CHAIN ne marche 
pas dans le 464 . Il a donc fallu le 
simuler en stockant et en rechar- 
geant les fichiers résidents à cha- 
que transfert. Par ailleurs, il y a quel- 
ques différences dans les syntaxes 
respectives (effaçage fichiers, bas- 
culement de pages-écran). Problè- 
me résolu grâce à l'obligeance de 
M. Vibert, de Garches. 
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la lettre P, sous forme de deux tirets ver- 
ticaux situés l'un au-dessus de l'autre. 
Nous l'avons déjà utilisé pour des ordres 
comme IERA,"*.BAK" (effacement auto- 
matique des fichiers .BAS sur disquette, 
pour "faire le ménage"). Sur certaines ma- 
chines ce caractère sera le u accentué ù 
Quand on fait cet ordre ICPM, l'affichage, 
sur un CPC couleur, change. Les carac- 
tères apparaissent en blanc sur fond bleu, 
et le curseur carré apparaît à la droite 
de: 

A> 

NB : l'ordre C/PM qui provoque l'affichage 
du contenu de la disquette est alors 

DIR (plus évidemment une pression de 
la touche fin de message) 

Ce que vous pourrez aisément vérifier. 
Maintenant, quand vous êtes sous C/PM 
il n'y a plus d'ordre de lancement de pro- 
gramme du style RUN"Quelque chose. 
Essayez, l'ordinateur ne comprend plus 
cet ordre BASIC. 

Tous les programmes suivis de COM se 
lancent en écrivant directement leur la- 
bel. Vous avez par exemple un program- 
me intitulé : 




(on appelle ainsi le caractère situé immé- 
diatement avant le curseur). C'est main- 
tenant un astérisque. PIP est un program- 
me qui permet le transfert d'un fichier quel- 
conque d'une disquette à l'autre. Le lec- 
teur central est repéré sur AMSTRAD par 
la lettre A et le lecteur externe par la lettre 
B. 

Pour copier à l'aide du seul lecteur A, 
l'ordre logique serait : 

A : = A : BANKMAN . BIN 



Le tout étant ce que Kipling 
appelait "grosse astuce 
et force magie 



mais cela ne marche pas et vous obtenez 
le message d'erreur : 

ERROR : INVALID FORMAT 

En fait l'ordre de transfert est : 



Attention, ne vous précipitez pas pour 
changer la disquette dans le lecteur. Ce 
message signifie : mettez le disque cor- 
respondant au lecteur A (au lecteur "sour- 
ce", dans lequel se trouvera le fichier à 
transférer). Si votre disquette système est 
déjà dans le lecteur, pressez simplement 
une touche. Vous verrez alors apparaître 
un second message défilant : 

Please put the dise for B : into the drive 
then press any key. Please put 

Là vous devrez mettre votre disquette de 
travail AMSTRAD-3D et presser une nou- 
velle touche pour déclencher l'opération 
d'écriture. 

Ouf.... 

Nous avons décrit l'opération par le menu, 
pour que vous puissiez la mener à bien 
sans problème et sans avoir à vous référer 
au manuel (celui de l'AMSTRAD est parti- 
culièrement ésotérique). 
Pour retourner en BASIC, le plus simple 
est d'éteindre la machine et de la rallumer. 
Vous lancerez alors le programme BANK- 
MAN en faisant : 

RUN"BANKMAN 



AMSDOS .COM 1K 

Vous pourrez le lancer en faisant indif- 
féremment 

AMSDOS (et évidemment la touche <Re- 
turn>)ou : 

AMSDOS.COM (et la touche <Return>). 

Vous chargerez alors le DOS, le dise ope- 
rating System de l'AMSTRAD associé au 
BASIC, et qui s'appelle précisément AMS- 
DOS. Essayez, vous verrez apparaître l'af- 
fichage en grosses lettres jaunes surfond 
bleu et l'affichage du catalogue ne pourra 
plus être obtenu par DIR mais par CAT, 
ordre BASIC. Nous sommes passés du 
C/PM au BASIC. 

Pour revenir en CPM vous n'aurez qu'à 
faire ICPM. Quand vous êtes revenu dans 
cette configuration, faites : 

PIP 

Vous verrez apparaître le message : 

CP/M 3 PIP VERSION 3.0 

* 

Vous noterez le changement du "prompt" 



B: = A: BANKMAN. BIN 

Le début du message spécifie le lecteur 
sur lequel sera transférée la copie. Vient 
ensuite le lecteur où sera puisé le fichier, 
puis le nom du fichier. Le tout étant ce 
que Kipling appelait "grosse astuce et force 
magie". 

Immédiatement, l'AMSTRAD charge 
BANKMAN . BIN à partir de sa disquette 
système (si elle est toujours dans le lec- 
teur). Vous devez alors constater l'affi- 
chage défilant, en bas de votre écran, de : 

Please put the dise for B : into the drive 
and press any key. Please put 

enlevez le disque système et remplacez- 
le par votre disquette de travail, puis pres- 
sez une touche quelconque. Vous retrou- 
vez votre "prompt", travail effectué. Remet- 
tez le disque système dans le lecteur et 
transférez alors votre second fichier par : 

B : = A : BANKMAN . BAS 

vous lirez alors le message défilant : 

Please put the dise for A : into the drive 
then press any key. Please put 



Le lecteur tournera un instant et vous ver- 
rez réapparaître le : 

Ready. 

Désormais toute entrée dans la chaîne 
de traitement AMSTRAD-3D sera précé- 
dée de cette opération qui a pour effet 
d'installer quelque part dans la machine 
(en dehors de l'espace réservé à l'héber- 
gement des programmes BASIC) une rou- 
tine en assembleur permettant de gérer 
le second bloc de 64 K, en particulier de 
jouer avec des "pages-écrans" (voir plus 
loin). 

INSTALLATION DE LA 
ROUTINE DE HARDCOPY 

Ce programme correspond à l'imprimante 
DMP2000, et nous lui avons donné ce 
nom. Nous allons devoir écrire ce pro- 
gramme assembleur, sous forme d'un pa- 
quet de DATA. Ces ordres assembleur 
sont alors inscrits en mémoire, au mo- 
ment de l'exécution, dans une boucle 
d'écriture : 

270 FOR i = &A000 TO &A0C2 

280 READ A$ : A = VAL ( "&" +A$ ) : POKE 
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290 TOTAL = TOTAL + A : REM Comp- 
teur pour vérification. 
300 NEXT i 

J'ai mis un i minuscule pour rappeler qu'il 
s'agit cette fois du caractère alphabétique 
i et non du caractère C/PM. 

Ceci est extrêmement commode. En as- 
sembleur les instructions et les adresses 
sont écrites en hexadécimal. Dans ce co- 
dage non décimal, les caractères de base, 
dans cette numération en base seize, et 
leur équivalent en décimal sont : 

0, 1, 2, 3, 4, 5, 6, 7, 8, 9, A, B, C, D, E, F 
0, 1,2,3,4,5,6,7,8,9, 10,11,12, 13, 
14,15 

A "vaut" donc 1 (en décimal). 

L'adresse A000 correspond ainsi à : 

zéro + zéro x seize + zéro x (seize) 2 + 
dix x (seize) 3 

soit 40960. De même l'adresse A0C2 
correspond à : 

deux + douze x seize + zéro x (seize) 2 + 
dix x (seize) 3 

soit 41 1 54. J'ai fait toute cette acrobatie 
simplement pour montrer que si dans le 
programme (listing 1), vous remplacez la 
ligne 270_par : 

270 FOR i = 40960 TO 41 1 54 

cela marchera tout aussi bien. Mais la 
présence du caractère & dans le FOR indi- 
que à l'AMSTRAD que les adresses figu- 
reront en hexadécimal. Dans la ligne 280 
le READ lit le paquet de deux caractères 
en DATA correspondant à l'ordre assem- 
bleur, le VAL convertit cela en décimal, 
d'une manière il est vrai un peu parti- 
culière, et le POKE réalise l'écriture en 
mémoire à l'adresse I. 
Il est toujours agaçant d'avoir à rentrer 
des paquets de trucs à la main dans un 
ordinateur comme autant d'incantations 
cabalistiques. C'est l'aspect un peu mys- 
tificateur de l'informatique, alors que, bien 
souvent, cela ne casse pas trois pattes 
à un canard. 

Vous savez qu'une routine écrite en as- 
sembleur peut être appelée à l'intérieur 
d'un programme BASIC en utilisant l'ins- 
truction CALL, suivie de & et de l'adresse 
en hexadécimal du début de cette sec- 




tion-programme en assembleur, en l'oc- 
currence A000, comme indiqué en ligne 
270. 

EXPLOITATION 
DANS VOIR 

Nous avons créé dans une précédente 
leçon une section VOIR qui crée des ima- 
ges en perspective avec prise automa- 
tique du point de vue sur l'objet résident. 
Nous allons intégrer ce système de hard- 
copy dans ce programme, ce qui donnera 
le listing 2. On rappelle les conventions 
d'écriture : les lignes ayant déjà été don- 
nées dans de précédentes leçons sont 
suivies de : ' * 

Commentaires : 

En 1 2060 et en 1 81 1 7 (selon que l'on déci- 
de de tracer ou non l'image du trièdre), 
on procède à une sauvegarde systéma- 
tique de la page écran affichée (page 1) 
dans la zone mémoire "page 2" (qui se 
situe en fait dans le second bloc mémoire 
de 64 K de l'AMSTRAD). L'instruction 
SCREENCOPY (précédée du caractère 
C/PM) permet de recopier une page écran 
sur une autre. Les pages-écran correspon- 
dent à des zones mémoire, et nous ne 
nous préoccuperons pas de savoir où elles 
se trouvent. La syntaxe se lira sur un 
exemple : 

ISCREENCOPY 2,1 recopie la page 1 
dans la page 2 

ISCREENCOPY 1 ,2 recopie la page 2 
dans la page 1 

Nous utiliserons ce système de copie à 
chaque fois que nous voudrons écrire sur 
un dessin, sans l'abîmer. 

Dans ces lignes 1 2060 et 1 81 1 7, on pose 
ensuite la question de l'opportunité d'une 
hardcopy. Si la réponse est <0> (O est 
la quinzième lettre de l'alphabet), on va 
faire disparaître toute trace de ce qu'on 
vient d'inscrire en recopiant la page 2, 

où on a conservé le dessin ) sur la page 
1 . Puis on déclenche l'ordre de copie par 
le CALL &A000. Ceci ne marchera bien 
évidemment que si : 



1 - Votre imprimante est allumée. 

2 - Vous avez préalablement à l'entrée 
dans la chaîne de traitement par 
RUN"MOD1 fait RUN"DMP2000 

De même l'AMSTRAD ne comprendra pas 
l'instruction ISCREENCOPY si vous ne 
la lui avez pas préalablement "apprise" 
en faisant RUN"BANKMAN 

Remarque importante : en entrant dans 
la chaîne de traitement AMSTRAD-3D, 
respectez l'ordre : 

RUN"BANKMAN 

RUN"DMP2000 

RUN"MOD1 

Commentaires : 

Nous introduirons dans DES les trois sous- 
programmes 230000, 45000 et 46000 d'er- 
reur sur objet, d'erreur sur image et d'er- 
reur sur bloc. 

Le dessin est effectué dans le sous-pro- 
gramme 27000, selon trois sous-options : 

a-Objet en mémoire 
b-Dessin par élément 
c-Dessin par bloc 

La recherche du "blindage" de cette sec- 
tion DES continuera grâce aux sections 
30000 et 31 000 qui introduisent des ques- 
tionnements quant à l'objet et au bloc 
résident, ou à charger. 

En fin de sous-programme 27000, comme 
dans VOIR, on procédera à une recopie 
du dessin sur la page 2 (ligne 27390). 
En 27390 on appellera le sous-programme 
60000, déjà vu plus haut, qui permettra 
une éventuelle hardcopy ou stockage 
d'image sur disquette. 

L'ABERRATION 
EN BARILLET 

C'est très joli d'accumuler des outils 
nouveaux à chaque leçon, mais qu'en fai- 
re ? Après avoir doté VOIR et DES de 
ces outils de stockage d'image et de hard- 
copy, nous allons puiser dans ce qui a 
déjà été construit, ajouter quelques com- 
pléments et mettre en évidence ce pro- 
blème clef de la représentation en pers- 
pective. 

En fait, un des buts de la démarche que 
nous poursuivons est de construire une 
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procédure permettant une négociation 
automatique de l'aberration en barillet, ce 
qui n'existe présentement sur aucun sys- 
tème CAO, gros ou petit. On n'est pas 
chercheur pour rien. 

Très bien, mais alors, cette aberration, 
c'est quoi ? 

Elle naitdès qu'on utilise un objectif "grand 
angulaire". Dans notre programme ceci 
correspondra aux fortes valeurs de ce que 
nous avons appelé l'OUVERTURE AN- 
GULAIRE AN. La valeur standard corres- 
pond à un champ visuel humain restreint, 
de plus ou moins vingt degrés, c'est-à- 
dire à une extension angulaire de 40°. 
En fait l'œil humain a un champ percep- 
tif plus important. Faites l'expérience. Gar- 
dez la tête immobile et demandez à quel- 
qu'un de déplacer un objet jusqu'à ce que 
vous cessiez de le percevoir. Vous ver- 
rez que ce champ est énorme. 
Bien sûr la qualité de perception diminue 
au fur et à mesure que l'on s'éloigne de 
l'axe optique, qui concentre l'information 
sur la tache fovéale située au fond de la 
rétine et riche en cellules réceptrices. C'est 
cette tache minuscule dont vous vous ser- 
vez pour lire ce texte. Si vous prenez un 
objet comme un timbre poste et que vous 
cherchiez à lire le chiffre qui y figure en 




déplaçant votre axe optique légèrement 
à côté, vous verrez que c'est impossible. 
Prenons un décor constitué de segments 
de droites. L'œil les percevra toujours, 
plus ou moins, comme des courbes. En 
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LENS 

VOTRE 

NOUVEAU 

SPÉCIALISTE 

AMSTRAD 

OUVERT DE 9 h à 12 h 
et de 14 h à 19 h 
sauf lundi matin 

20, rue de la Gare 

(face au commissariat de police) 

62300 LENS 
Tél. 21.28.42.24 



fait la perception humaine introduit une 
aberration importante à laquelle nous som- 
mes habitués. Tout le décor se trouve 
courbé, comme nous le verrons sur les 
images que nous allons créer. 

Pour créer ces images, donnons deux 
versions de MOD1 et MOD2, qui contien- 
dront les éléments dont nous aurons 
besoin. 
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isting dmp 2000 



10 #***♦*+***♦******+***** 
20 HARDCGFV ECRAN 
30 'POUR DMP 2000 
40 **«****♦♦**** 

50 DATA CD.BA.BB.CD.E7.BB.32.BF.A0.CD 
60 DATA 66.A0.21.8F.01.22.C0.A0.ii.00 
70 DATA' Û0.3E.06.32.C2. A0.CD.7B.A0.OE 
80 DATA 00.3A.C2.A0.47.E5.D5.C5.CD.F0 
90 DATA BB.C1.D1. 21. BF.A0.BE.E1. 37.20 
100 DATA 01.A7.CB.11.2B.10.EA.CD.B3.A0 
110 DATA 79.CD.AA.A0.13.E5.21.7F.02.37 
120 DATA ED.52.E1.38.05.2A.CÙ.A0.18.CD 
130 DATA 23. 7C. B5. C8. 2B. 1 1 . 00, 00. 22, C0 
140 DATA A0.3E,03,BD.20.BA,7C.B4.20,B6 
150 DATA 3E,04,32,C2.A0,18.AF.3E,1B.CD 
160 DATA AA.A0.3E.33.CD.AA.A0.3E,10.CD 
170 DATA AA.A0,C9.E5.3E,42.CD.1E.BB.E1 
180 DATA 28.02.E1.C9.3E.0D.CD.AA.A0.3E 
190 DATA 0A.CD.AA,A0.3E.iB.CD.AA.A0.3E 
200 DATA 2A.CD.AA.A0.3E.04.CD.AA.A0.3E 
210 DATA 7F,CD.AA,A0.3E.02,CD.AA.A0.C9 



;L6 
;LC 
AD 
>EZ 
/CD 
>DJ 
>DT 
>D2 
/EM 
>DA 
>EC 
,>DU 
>EJ 
>EU 
>EG 
/ED 
/ET 
>ER 
>EU 
>EH 



220 DATA CD. 2E. ED. 38. FB. CD. 2B.BD.C9.3A -_ 

230 DATA C2.A0,FE.06.C8.AF.CB.ll.CB.U - ! EA 

240 DATA C9. 00. 00. 00,00 -PL 

250 ■ /Rk 

260 MEMORY &9FFF:7QTAL=û >UB 

270 FOR I=&A0O0 T0 ÏA0C2 ,QD 

280 READ ft$!A=VALi"&"+Ai):PQKE LA >M 

290 T0TAL=T0TAL+A ;ND 

300 NEXT >DJ 
310 IF TOTAL <> 24125 THEN PRINT "ERREUR EN DATA": STOP >ZK 

320 CLS:PRINT"Routine charge: ": PRINT >PD 

330 PRINT "Appel de cette routine: CALL tAÔOO" >YQ 

340 END >TA 




1 REM V0IR2 8 N0V 87 >NR 

2 IF FD = THEN CLS : PRW'Pas d'accès direct a VOIR. >XP 
..":PRINT:PRINT"Je vous renvois sur M0D1...":RUN"P18": ' 

♦ 

5 CLS : L0CATE 17.12 : PRINT"VOIR. .. ": * >EG 

7 IF L =-1 THEN PRINT: PRINT"Pas d'objet résident, reto >VN 
ur sur M0D1 ":EL$="":C=0:CHAIN"MOD1": * 
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SK* N\NÏ\\x^YJ A WV W iï%ï.\ %%\ V\ 



10 60SUB 44000: '* .. xF 

20 BORDER 26*RND:CLS: * ;QK 

25 IF ELÎ <> "" THEN LOCATE 25.2l:PRINT"0b,iet résident" >WR 

:LOCATE 25.23:PRINT EL$:PRINT: * 

30 LOCATE 13.10 : PRINT" Desirez-vous un trace du tri /MU 

edre ?":GOSUB 65020: * 

7000 REM Représenter un ob.iet * ;ZN 

7010 AN = 20: * >TJ 

7040 XM = GX(K) + RE(K) * 3.5: * >UC 

7050 YM = GY(K) + RE(K) * 2.5: * >UE 

7060 ZM = GZ(K) + RE (10 * 1.5: * >UG 

7080 SE = GX(K):YG=GY(K):ZG=GZ(K): * >CV 

7090 CX = XG - XM : CY = YG - YM : C2 = 26 - ZM: '« FB 

7100 DD = SOR (CX*CX t CY*CY ): * ;WU 

7110 IF DD = AND CZ > THEN TE = : kl = PI / 2 : G >W 

OTÛ 7210: * 

7120 IF DD = AND CZ i, THEN TE = : Kl =-PI / 

GTQ 7210: ♦ 

7130 Kl = ATN (CZ/DD): * 

7140 IF CX = AND Cï > THEN TE = 1.57 : ÛÛTO 7 



THEN TE = PI + TE: 
THEN TE = PI + TE: 
THEN TE = PI: * 
THEN TE = - PI/2: 



SIN (TE;:* 
SIN (Kl): * 
ZU=SK: ' 

'* 



ZW = CK:* 



7160 TE = ATN (CY/CX): 

7170 IF CX i AND CY 

7180 IF CX \ AND CY 

7190 IF CX < AND CY 

7200 IF CX = AND CY 

7210 REM * 

7220 REM * 

7230 CT = LOS (TE) : ST 

7240 CK = COS (Kl) : SK 

7250 XU = CK*CT : YU = CK*ST 

7260 XV = - ST : YV = CT : ZV = 0: 

7270 XW = - SK*CT : YN = - SK*ST : 

7280 GOSUB 62000 : * 

i liv ir l - u ihen Quai» ihwu ; uuauc i 

18000: * 

12000 REM Objet de.ia présent en mémoire* 

12010 CQ=1: * 

12020 FOR I = TO L : FOR J = TO NU): 

12030 GOSUB 15000:'* 

12040 NEXT J:NEXT I: * 

12050 C=0: * 

12060 ISCREENCOPY, 2.1: SOUND 1.50 : LOCATE 

dcopy ?":GÛSUB 65020: IF C=15 THEN ISCREENCOPY, 1, 2 :CALL 

&A000:PRINT#8:PRINT#8 

12999 SOUND 1,200 : CHAIN"P18": * 

14000 REM SAUVEGARDE OBJET RESIDENT* 

14005 CÛ = 1: * 

14010 OPENOUT"SAUVOBJ":* 

14020 FRINT#9,C0<K!.GX(K),GY(Ki.GZ(k).RE(k>,L: * 

14030 FOR I = TO L:'* 

14040 PRINT#9.N!1):'* 

14050 FOR J = TO Nil):'* 

14060 PRINT#9,XTiI,J),YTiI.J),ZTU,J):* 

14065 GOSUB 15000: '* 

14070 NEXT J : NEXT I: * 



,l:PRINT"Har 




G >WH 

.-Pn 
* >MC 



7150 IF CX = AND CY < THEN TE =-1.57 : GOTO 7210: * >NF 



;DL 
>AK 
>DU 
>FD 
,FE 
>YV 
)YQ 
>BC 
>VD 
>DD 
; LQ 
.•Va 

/HT 
>RJ 

>m 

;PA 

m 

>CG 



i 



14080 
14999 
15000 
15040 
15050 
15060 
15090 
15100 
15110 
15121 
15122 
15125 
15126 
15127 
15130 
15140 
15150 
15160 
15170 
15172 
15174 
15180 
15240 
15250 
15260 
15270 
15999 
17000 
17005 
17010 
17020 
17030 
17040 
17050 
17060 
17070 
1 7080 
17090 
17999 
18000 
18005 
18010 
18020 
18030 
IB040 
18050 
18060 
18080 
18090 
18100 
18110 
18115 
18117 



CLOSEOUT: * 

RETURN:» 

REM Calcul et trace image + 

XL=XT<I.J>-XM:'« 

YL=YT(I,J)-YM: * 

ZL=ZTU,J)-ZM: * 

XA=XL*XU+YL*YU+ZL*ZU: * 

YA=XL*XV+YL*YV+ZL*ZV: ♦ 

ZA=XL*XW+YL*YW+ZL*ZW:* 

IF XA=0 AND YA=0 AND ZA=0 THEN ZA=Ô.O01: + 

RO = SQRi.YA*YA+ZA*ZA;<: * 

IF XA=0 THEN B=90:6ÛT0 15127: * 

B=ATN(RÛ/XA):B=B*1S0/PI: * 

IF XA<0 THEN B=B+180 : * 

IF YA=0 AND ZA=0 THEN A=90:G0T0 15180: * 

IF ZA=0 AND YA >0 THEN A=-90:G0T0 15180 : * 

IF ZA=0 AND YAiO THEN A=90:G0T0 15180:'* 

A=-ATN(YA/ZA):A=A*180/PI : * 

IF ZA<0 AND YA >0 THEN A=A-180: * 

IF ZA <0 AND YA<0 THEN A=A+180: * 

IF ZA :.0 AND YA =0 THEN A=180: * 

X=B*SIN(A*PI/180):Y=B*COS(A*PI/i80): * 

XE=313+X*300/AN : * 

YE=200+Y*300/AN : * 

IF J=0 THEN PLOT XE,YE,CO: '* 

IF JOO THEN DRAW XE,ïE.CÛ,0: * 

RETURN: * 

REM TRACE TRI EDRE * 

CO = 3:'* 

OPENIN"TRIEDRE": "* 

INPUT#9,C0(K),6X,GY,6Z,RE,L:* 

FOR I = TO L: * 

INPUT#9,N(I): * 

FOR J = TO Nil): * 

INPUT#9,XTU,J),YT(I,J),ZTU.J):* 

GOSUB 15000:'* 

NEXT J : NEXT I:* 

CLOSEIN: * 

RETURN: * 

REM RECHARGER ET DESSINER OBJET * 

CO = 3 :'* 

OPENIN"SAUVOBJ" : * 

INPUT#9,C0lK),GXUO,6Y(K),6Z(K),RE(K;.L: * 

FOR I = TO L: * 

INfuTSv.NiI): * 

FOR J = TO N(Ii: * 

INPUT#9,XT(I,J.i,YT(I,J),ZTU,J;: * 

NEXT J : NEXT I: * 

CLOSEIN:'* 

!ERA."SAUVOBJ": » 

C = 0: * 

SOUND 1.100: * 

ISCREENCOPY, 2,1: SOUND 1.50 : LOCATE i.l:PRINT"Har 



>LB 
>XF 
>ZK 

,:PZ 

>PD 
>PH 

yF 
>YB 

Yb 

>ln 

,-BK 
■ ZG 

,>KD 
>LU 
XKE 
>ZN 
■BY 
>BD 
M 
?LF 
M 

m 

: 7 7 

' L L 

/CE 

(G 
îTN 

UE 
;TG 
>DT 
/MF 
>NT 
>PX 
/HG 
>LE 
/PZ 

BK 
. XJ 
>6P 
>UG 
>TW 
;0E 
>HT 
,NU 
>PY 
>HH 

PA 
;CA 
M 
M, 
>LG 
>CR 
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»v» v xmvv:\^\\^^.\\v<l\ v î:\\>.vc\^ 



dcopy '":GQSUB 65020: IF C=15 THEN 1SCREENC0PY.1.2:CALL 
?v.A000:PRINT#8:PRINT#8 

18999 CHAIN"P18": * >l% 

44000 REM Calcul de CG et de RE * . XZ 

44010 GX=0:GY=0:GZ=0:N=0:REik>=0: * >CE 

44020 FOR 1=0 TO L: FOR J=Û TO N ( I J : * AA 

44025 N=N+1: * ;AE 

44030 6X=6X+XT(I,J):'* .-PL 

44040 BY=GY+YT(I,J)i * >PQ 

44050 GZ=6Z+ZT<I,J>:'* >Pv 

44060 NEXT J:NEXT I: * >PH 

44070 6X(K>=GX/N: * m 

44080 SY(K)=6Y7Ni * /MA 

44090 6Z(K)=6Z/N: * MD 

44100 FOR 1=0 10 L:FQR J=0 TÛ NU;: ♦ Ab 
44110 R=SQR ((XT(I,J)-6X(K))*!XT(I,Jt-6X(K)) + (Y"7(I,J)-G ;JH 
Y(K))*!YT(r,J)H3Y(K)) + (ZT(I,J)-SZ(K/)*<ZT(I,J)-SZ<l i)): 

44120 IF REtKKR THEN RE\k;=fi: * X14 

44130 NEXT J:NEXT I: * >PF 

44999 RETURN : » >XK 

62000 REM CADRE * ,>HB 

62010 CLS: * ;NC 

62015 BORDER 14: * >F6 

62020 PLOT 0.0: * )W 

62030 DRAW 639,0,3: * .Ml 

62040 DRAW 639,399,3: * ,NA 

62050 DRAW 0.399,3: * ;MR 

62Û60 DRAW 0,0,3: * ;GF 

6207Ç CQ = 3: * ;UG 

62999 RETURN:'* ;XJ 

65000 REM Saisie caractère * >WU 

65005 PRINT: * KD 

65010 PRINT"Votre choix :":* ;AP 

65020 C$="":C$=INKEY*:IF C$="" THEN 65020: * >GL 

65030 C=ASC(C») : * /FA 

65035 IF C=13 OR C= 32 THEN C=27:60T0 65060: * >JC 

65040 IF C/96 THEN C=C-96:60T0 65060:* /DC 

65050 IF Û9ô THEN C=C-64: * ;TB 

65060 SOUND 1,20,1: * >MV 

* , UH 




1 REM DES 16 Nov 87 >MD 

2 IF FD=1 THEN 230: * ;MK 
5 SOUND 1,20: CLS:PRINT"Pas d'accès direct a DES":PRINT ;JL 
:PRINT"Je vous renvois sur M0D1...":RUN"P18": '* 

10 CLS:* /UG 



15 PRINT "MENU PRINCIPAL" :PF;INT: ♦ 

20 PRINT"a-Creer un objet": * 

30 PRINT"b-Completer un objet": * 

40 PRIN7"c-Stocker un ob,iet Li : * 

50 PRINT"d-Charger un objet": * 

60 PRINT"e-Gestion de blocs d'ob.iets":PRINT"t-Gestian a 

u catalague":PRINT"g-Manipuler objet ou bloc":PRINT"h-F 

usions diverses":PRINT"i-":PRINT"j-Ficnier objets stand 

ards":PRINT"k-Voip" 

70 PRINT "Î-Creer une îin-age": * 

30 PRINT"in-":PRlNT"n-":FRIr! T "G-":PRINT'P-': * 

180 PRINT"q-ûuitter": * 

195 IF ELî "" THEN LÛCA'E 22,21:PRIN1 Objet résident 

":L0CATE 22. 23: PRINT ELS: ♦ 

197 IF LO-1 THEN LÛCATE 31.23:PRINT L+li" :-.": » 

198 LOCATE 1,22: * 

200 GOSUB 65000: REM Saisie caractère * 

205 IF C =11 THEN CHAIN'\»0IR2" : * 

210 IF C=l7 THEN END: * 

220 IF C<1 OR C>17 THEN 10: * 

225 IF C = 16 THEN GÛSUB 170O0:GOT0 10: * 

230 ON C GOSUB 64000,64000,64000,5000.64000,64000,6300 

0, 63000, 60000, 64000, oOOOO. 27000, 60000 

240 !ERA,"*.BAk": * 

999 GOTO 10 

5000 REM Chargement objet * 

5001 FI=1 : REM FLAG de non trace * 

5010 INPUT "tan de 1 oojet a charger ":El$!I-, 

'* 

5017 ON ERROR GOTO 23000: * 

5020 OPENIN EL*(k;: * 

5025 IMPUT#9,C0(K),6X(K),6Y(Ki,6Z(K),RE(K) 

t a (L+li chaînes * 

5030 FOR 1=0 TO L : REM Pour toutes les chaînes allant 

de a L * 

5040 INPUT #9,N(I): REM Nombre de segments sur chaîne # 



5050 FOR J=0 TO N(D:R£H Pour tous les points ae la cha >CN 
me d indice ï * 

5060 INPUT #9,XTQ,Jj.îï(l,J).ZTU,J;:* >oi 

5065 IF FI=0 THEN GOSUB 15000: REM Tracer* ;HD 

5070 NEXT J:NEXT i: * /NU 

5080 CLOSEIN: * ,VE 

5999 RETURN: * >QF 

7000 REM CALCUL PARAMETRES VISION * /DD 

7090 CX = XG - XM : CY = t'G - YM : CZ = Z6 - Z^: * /FB 

7100 DD = SÛR (CX*CX + CY*CY ! : * ,WU 

7110 IF DD = AND CZ > THEN TE = : kl = PI / 2 : G >W 
0T0 7210: * 

7120 IF DD = AND CZ < THEN- TE = : Kl =-PI .2:6 ,'WH 
QTO 7210: * 

7130 Kl = ATN (CZ/DD! /NJ 

7140 IF CX = AND CY > THEN TE = PI/2 : GOTO 7210: * >NV 



_$=£L*(K>: 



:REM L ob.ie 



CW 
BN 

H : 

Eh 
ES 

FF 



V'M 

1k 

kl2 
FE 
F Y 
rW 
NX 

Dx 

ut 

>«D 
>UE 

m 

• In 

JE 

TF 

m 

>VH 

EQ 



7150 IF CX = AND CY < THEN TE =-PI/2 : GOTO 7210: * >PY 



7160 TE = ATN (CY/CX):'* 

7170 IF CX < AND CY > THEN TE = PI + TE: * 



>P0 

m 
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7180 


IF CX < 


AND CY < 


THEN TE = 


Fi + 


TE 


7190 


IF CX < C 


AND CY = 


THEN TE = 


Fi: 


t 


7200 


IF CX = C 


AND CY ; 


THEN TE = 


- Fi 


■ 2* 


7210 


REM * 










7220 


REM » 










7230 


CT = COS 


(TE) : ST 


= SIN (TE): 


* 




7240 CK = COS 


(Kl) : 3K 


= SIN (Kl)! 


* 




7250 


XU = CK*CT : VU = 


ck*st : 2U=S 


(: * 





>DL 
>AK 
/DU 
>FD 
>FE 
>¥V 
;yq 
>BC 
/VD 
>DD 
>0K 
>UK 
;VP 
;J6 
;ME 
:>NL 
>JK 
>HB 
>CF 
;ML 
>GD 
>JE 
>XB 
>ZL 
>LF 

.'Li. 

>GA 
>JC 
>XD 
>HD 
>TU 



7260 XV = - ST : Y'V = CT : ZV = 0: .* 

7270 XW = - SK#CÏ : YW = - SK*ST : ZW = CK: * 

7999 RETURN : * 

10000 REM dessin par bloc * 

10005 F I =0 : REM FLAG trace * 

10010 CLS:PRINT"DESSIN DU BLOC":PRINT: * 

10040 FOR K = TO E: * 

10050 PRINT EL$!K):* 

10055 NEXT K : * 

10060 FOR TT =0 TO (E+l)*500 : NExT TT:CLS: * 

10065 GOSUB 62000: REM tracer cadre * 

10505 FOR k = TO E: * 

10510 GOSUB 5020: REM Charger et tracer * 

10520 NEXT K: » 

10999 RETURN: * 

11000 REM DESSIN PAR ELEMENTS * 
11075 GOSUB 62000: * 
11100 FOR K=0 TO E: * 
11110 GOSUB 5020:REM Charger et tracer * 
11120 NEXT K :'* 

11999 RETURN : * 

12000 REM Objet déjà présent en mémoire 
12005 IF L=-l THEN CLS:PRINT"Pas d objet en mémoire, eh 
, tarceur !":SOUND 1,50 :FOR TT=1 TO 1000: NEXT TT : 60 
TO 10 

12010 GOSUB 62000:REM tracer cadre 
12020 FOR I = TO L : FOR J = 10 N(I):REM POUR TOUTE 
S LES CHAINES ET TOUS LES POINTS DE CES CHAINES 

12030 GOSUB 15000: REM TRACE IMAGE ECRAN >GA 

12040 NEXT J:NEXT I >NZ 

12999 RETURN >PC 

15000 REM Calcul et trace image * >ZJ 

15040 XL=XT(I,J)-XM: * >PZ 

15050 YL=YT(I,J)-YM: * >PD 

15060 ZL=ZT(I,J)-ZM: * ,-PH 

15090 XA=XL*XU+YL*YU+ZL*ZU: * >YF 

15100 YA=XL#XV+YL*YV+ZL*ZV: * >YB 

15110 ZA=XL*XW+YL*YW+ZL*ZW: * >YG 

15121 IF XA=0 AND YA=0 AND ZA=0 THEN ZA=0.001:* >LN 

15122 RO = SQRlYA*YA+ZA*ZA): * ,WÛ 

15125 IF XA=0 THEN B=90:G0T0 15127: * >BK 

15126 B=ATN(R0/XA):B=B*180/PI: * .>ZQ 

15127 IF XA<0 THEN B=B+180:* *UU 
15130 IF YA=0 AND ZA=0 THEN A=90:G0T0 15180: » >KD 
15140 IF ZA=0 AND YA >0 THEN A=-90:G0T0 15180:* >LT 
15150 IF ZA=0 AND YA<0 THEN A=90:G0T0 15180: '* >KE 
15160 A=-ATN(YA/ZA):A=A*180/PI:'* ;>ZM 
15170 IF ZA<0 AND YA >0 THEN A=A-180 : '* >BZ 
15172 IF ZA <0 AND YA<0 THEN A=A+180: '» >BD 
15174 IF ZA <0 AND YA =0 THEN A=180: * >AG 
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..": SOUND 1.20: FOR tt= 
RESUME 10 



15180 X=B*SIN(A*PI/180):Y=B*C0S(A*Fi/180): * 
15240 XE=313+X«200/AN:REM COORDONNEES ECRAN * 

15250 YE=200+Y*200/AN : '* 

15260 IF J=0 THEN PLÛT XE, YE : * 

15270 IF JOO THEN DRAW XE,YE,l,û: * 

15999 RETURN: * 

18000 REM Acquisition éléments * 

18010 INPUT"Nombre d'éléments ";E:E=E-1: * 

18020 FOR K=0 TO E:PRINT"Element numéro ";K+1:INPUT ELÎ 

(KkNEXT K:* 

18999 RETURN:'* 

23000 Erreur sur objet 

23999 CLS:PRINT"Objet inexistant 

TO 1 000 : NE X T : EL$ ( K ) = " " : EL$= " : ' : 

27000 REM REPRESENTER UN OBJET * 

27005 CLS: * 

27010 PRINT"REPRESENTER UN OBJET": PRINT: + 

27020 PRINT:PRINT"a-Objet en mémoire": * 

27030 PRINT"b-Dessin par éléments": * 

27040 PRINT"c-Dessin par bloc":PRINT: * 

27050 GOSUB 65000 : PRINT : CD=C:REM Stockage chou; typ 

e de dessin * 

27055 IF CD=i THEN GOSUB 30000 

27057 IF CD=3 THEN GOSUB 31000 

27160 CLS : PRINT"a-Saisie point de vue au cïavier":PRI 

NT 

27170 PRINT"b-(Saisie écran) ":PRINT:GOSUB 65000:CSAISI 

E=C:REM Stockage type de saisie * 

27190 PRINT:PRINT"Coordonnees observateur :":PRINT: * 

27200 INPUT"X=":XM: * 

27210 INPUT"Y=";YM: * 

27220 INPUT"Z=";ZM:PRINT:'* 

27230 PRINT"Coordonnees point vise :":PRINT: * 

27240 INPUT"XG=";XG: * 

27250 INPUT"YG=":YG:'* 

27260 INPUT"ZG=";ZG:PRINT:* 

27270 PRINT"Ouverture angulaire": * 

27280 INPUT"20 degrés par de+aut ";Ah«: * 

27285 IF AN$="" THEN AN = 20 : GOTO 27350: ♦ 

27290 AN=VAL(AN$): * 

27350 CLS : GOSUB 7000: REM Calcul des paramètres de vis 

ee * 

27360 IF CD=2 THEN GOSUB 18000: REM saisie éléments * 

27370 ' 

27380 ON CD GOSUB 12000,11000,10000: * 

27390 iSCREENCOPY, 2,1: SOUND 1,50 : LOCATE l,l:PRINT"Har 

dcopy ?":G0SUB 65020: IF C=15 THEN ISCREENCOPY, 1, 2: CALL 

&A000:PRINT»8:PRINT#8 

27998 CD=0:C=0: * 

27999 RETURN:'* 

28000 REM CHARGEMENT FICHIER BLOC 
28010 INPUT"Nom du bloc ":BL$ 
28015 ON ERROR GOTO 45000 



;LF 
;NC 

>QM 
.:- WU 

/AD 
>XG 
>BB 
>QY 



>Xk 

/DA 
>RQ 

>AN 
■ MH 

>m 

;PJ 
,'ME 

MX 
/MB 

>m 
;wF 

m 

>AG 

;JV 
>PM 
>PG 

m 

>zg 
m 
m 
>xc 

/KF 
>Pï 
>EM 
>MF 
/CB 

/VU 
/EE 
>BG 



>AF 
,'XK 
>CB 
>BN 

>TY 
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28020 ÛPENIN BLt 

28030 INPUT *9.E 

28040 FOR K=0 TO E 

28050 INPUT #9,EL*lk) 

28060 INPUT *9,CÛ(K) 

28070 INPUT *9,6X(K) 

28080 INPUT #9,GV(K) 

28090 INPUT *9,6Z(K) 

28100 INPUT #9,RE(K) 

28110 NEXT K 

28120 CLQSEIN 

28999 RETURN 

30000 'OBJET EN MEMOIRE ? 

ÎÔ0Ô2 IF LO-1 AND EL$="" ThEN PRINT'Objet sans nom pre 

sent en memoire":PRINT:PRINT"0n garde ?":60SUB 65020: I 

F C=15 THEN 30999 

30010 IF EL* <>"" THEN PRINT"Objet résident ";EL*:PRINT 

s PRINT "On garde ?": GOSUB 65020 

30020 IF EL*<>"" AND C=15 THEN 30999 

30040 G0SU8 5000 

30999 RETURN 

31000 REM BLOC EN MEMOIRE ? 

31010 IF BL* <>"" THEN PRINT "Bloc résident ";BL$sPRINT 

"On garde ?":GOSUB 65020 

31030 IF BL$<>"" AND C=15 THEN 31999 

31040 PRINT: GOSUB 28000 

31999 RETURN 

45000 REM ERREUR SUR BLOC 

45999 SOUND l,20:CLS:PRINT"Bloc inexistant.. ": FOR TT=0 
TO 1000: NEXT : RESUME 10 

46000 REM ERREUR SUR IMAGE 

46999 CLS: PRINT "Image inexistante...": SOUND i,20:F0R TT 

=0 TO 2000: NEXT: RESUME 10 

60000 ROUTINES NON ENCORE CREES 

60010 CLSiSOUND 1.50:PRINT"Routlne non encore crée...": 

FOR TT=0 TO 200: NEXT 

60999 RETURN 

62000 REM CADRE * 

62010 CLS: * 

62015 BORDER 14: * 

62020 PLOT 0, Os ' * 

62030 DRAW 639,0,3 : * 

62040 DRAW 639,399,3: * 

62050 DRAW 0,399,3: * 

62060 DRAW 0,0,3: * 

62999 RETURN: * 

63000 REM CHAINAGE SUR M0D2 

63999 CLS:CHAIN"P19 

64000 REM PASSAGE SUR M0D1 * 




FA 
>PC 

;PE 

NU 

-ÈH 

>UD 

-r 
■ r | 



/AL 

/AG 
/CG 
/PC 
;UH 
>NJ 

/AG 
>RX 
>PD 

;UK 



>VB 
)ÛJ 

/DB 

m 

>PF 

/HA 
>NC 
>F6 

m 
>m 

>NA 
>MR 
>GF 
>XJ 
/VN 
>PC 
>VP 




64999 CLS: CHAINAIS": * 

65000 REM Saisie caractère * 
65010 PRINT: PRINT"Votre choix : ' : 
65020 C*=INKEY*:IF C*="" THEN 6502C 
65030 C=ASC(C*i: * 

65040 IF C/96 THEN C=C-V5:G0IÛ 6553 
b505Û IF C<96 THEN C=C-b4s » 
65535 RETURN: * 



ùb 
■VU 
GG 

ïh 

E 

Dt 

T5 

WH 




1 REM P18 / M0D1 / S Nov 87, pour chaînage sur NÛD2 ip (E 
19; 

2 IF FD=1 THEN 230: * W 

3 FD=i: L = - 1:REM Initiahser L (L+l chaînes dans oD; B c 
et ):'* 

4 DIM Xn49.12},YT(49,i2),ZTi49,i2;.Nt4;;.£L$v2v;.CÛi2* PN 
),6X(29>,GY(29),6Z(29),RE<29},XE(12},YEU2i.XEBIS(12j,'r 
EBISU2),3T$(20)s * 

7 GOSUB 24000: REM Choix des couleurs» >FR 

10 CLS: * ; ufî 

15 PRINT"MENU PRINCIPAL" :PR1NT: * >CW 

20 PRINT"a-Creer un objet": * ;BN 

30 PRINT"b-Compieter un objet": * Ha 

40 PRINT"c-Stocker un objet": * ,Eh 

50 PRINT"d-Charger un objet":'* >EB 

60 PRINT"e-6estion de blocs d'oDjet5":PRINT' i t-5estion a FP 
u catalogue":PRINT"g-Manipuler oDjet ou bloc":PRINT"h-F 
usions diverses":PRINT"i-":PRINT".j-Fichier objets stand 
ards":PRINT"k-Voir" 

70 PRINT "1-Creer une image": * ,-DG 

80 PRINT"m-":PRINT"n-":PRINT"o-":PRINT"p-": * >QR 

180 PRINT"q-Quitter": * >VH 

195 IF EL* <> "" THEN LOCATE 22,21 :F'RINT"Qb jet résident >HK 
":L0CATE 22, 23: PRINT EL*: * 

197 IF LO-1 THEN LOCATE 31,23:PRINT L+l;" ch.": * >QZ 

200 GOSUB 65000: REM Saisie caractère: * /FP 

205 IF C=ll THEN CHAIN"VÛIR2": » >XH 

210 IF C=17 THEN END: * ,N> 

220 IF C = 12 OR C=9 THEN CHAIN"DES": * ;BT 

230 ON C GOSUB 9000, 90 10, 8000, 5000, 2 1000, 22000. 64000, o ,Ft 

4000,63000,20000s REM etc 

999 !ERA,"*.bak":CLS:60T0 10:REM Boucie MENU* ,Qh 

1000 REM CREER UN BLOC * >RP 
1010 CLS : PRINT"CREER BLOC D'OBJETS" s PRINT s * /QE 
1020 INPUT"Nom du bloc "sBL*: *. ;BR 
1030 INPUT"Nombre d'éléments ";E: * >HN 
1040 E=E-1: * >QK 
1050 FOR K=0 TO E: » >LJ 
1060 PRIW'Objet numéro ";K+1: * >DM 
1070 INPUT EL*lK):GOSUB 5020:REM Charger objet * >RB 
1090 NEXT K : * >CJ 
1100 GOSUB 6000:REM Stockage t'ichier-bloc * >LG 
1999 RETURN : * >QC 
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2000 REM LECTURE BLOC * 


;RH 


2010 CLS : PRINT'IECTURE BLÛC":PRINT: * 


;SV 


2020 GOSUB 31000 


;CE 


2035 PRINT-Bloc ";BL$:PRINT: * 


>ZM 


2040 FOR K=0 TO E: * 


>LJ 


2050 PRINT EL$(k): * 


;MA 


2060 NEXT K : * 


>CS 


2070 FOR TT=0 TO (E+l)*200 : NEXT TT:RB1 Temporisation 


, ! ZA 


2999 RETURN:'* 


;QC 


3000 CLS:PRINT"DETRUIRE BLOC+OBJETS" 


>m 


3999 RETURN 


;HD 


4000 CLS:PRINT"COFIE BLOC+OBJETS SUR AUTRE DISQUETTE": F 


•>Mk 


RINT 




4999 RETURN 


/HE 


5000 REM CHARGER UN OBJET: * 


/VD 


5010 INPUT"Nom de 1 objet a charger" ; EL* ik):EL*=EL*ik) : 

'-# 

5017 ON ERROR GOTO 23000 


.JE 


>R2 


5020 OPENIN EL$(k): * 


;>NB 


5025 INPUT#9,C0(K),GXik),Gy!ki,GZiki,REik),L:REM L obje 


;VH 


t a (L+l) chaînes * 




5030 FOR 1=0 TO L : REM Pour toutes les cnaines allant 


>Eû 


de a L * 




5040 INPUT #9,N(I): REM Nombre de segments sur chaîne * 


>YY 


5050 FOR J=0 TO N',I):REM Pour tous ies points de la cha 


>CN 


ine d indice I * 




5060 INPUT #9,XT(I,J),YT(I,J),ZT<L,J>:'* 


■ GZ 


5070 NEXT JrNEXT i: * 


ÏJU 


5080 CLOSEIN: « 


>VE 


5999 RETURN: * 


;ÛF 


6000 REM STOCKAGE BLOC * 


,RC 


6005 FRINT'-Je stocke le bloc ":8L*:* 


>JW 


6010 QPENOUT BL$: * 


/MB 


6020 PRINT #9,E: * 


SA 


6030 FOR k=0 TO E: * 


>i_« 


6040 PRINT #9,EL$(k): * 


>PZ 


6050 PRINT #9,C0(k):'* 


,>Nï 


6060 PRINT #9,GXtk>:'* 


;PE 


6070 PRINT #9,6Y(k): * 


>P6 


6680 PRINT #9,6Zik): * 


>PJ 


6090 PRINT #9,RE(k): * 


>NH 


6100 NEXT k: * 


>CE 


6110 CLOSEOUT: '« 


>GA 


6999 RETURN: * 


:>qg 


7000 REM CHARGEMENT FICHIER BLOC * 


;BF 


7005 PRINT"Je charge le bloc ";BL$: * 


;JN 


7007 ON ERROR GOTO 45000 


>RE 


7010 OPENIN «.*:'* 


>LN 


7020 INPUT #9,E : * 


>6F 


7030 FOR k=0 TO E: * 


>LN 


7040 INPUT #9,EL$!k):'* 


>PD 


7050 INPUT #9,C0(k):'* 


>NC 


7060 INPUT.#9,GX(k):'* 


>PJ 


7070 INPUT #9,GY(K>! * 


>PL 


7080 INPUT #9,GZ(K): * 


>PN 


7090 INPUT #9,RE(K!:'* 


>PD 



7100 NEXT k: * >CF 

7110 CLOSEIN: * >VA 

7999 RETURN:'* >QH 

8000 REM STOCKAS OBJET >TQ 
8010 INPUT"Nom de l'objet a stocker";EL$:EL*tk)=EL* /EL 
8015 GOSUB 440Û0:REM CALCUL SX,GY,GZ,RE >HR 
8020 OPENOUT EL*(K) >NH 
8025 PRINT #9,C0(K),GX(k),GY(k),GZ(k!,RE(k!,L:REM L OBJ >NR 

CT A lllll PU/\TMCC 

Ll n IL'li wllniin-tj * 

8030 FOR 1=0 TO L: REM Pour toutes les chaînes allant d >Dr 

e a L 

8040 PRINT #9,N(I):REM Nombre de segments sur chaîne 

8050 FOR J=0 TO N ( I ) : REM Pour tous les points de la ch 

aine d'indice I 

8060 PRINT #9,XT(I,J),YT(I, J),ZTU,J! 

8070 NEXT J:NEXT I 

8080 CLOSEOUT 

8999 RETURN 

9000 REM CREER UN OBJET 
9005 L=-l:k=k'+l:EL$lK)="":EL$="" 
9010 CLS:PRINT"CREER UN OBJET": PRINT 
9020 PRINT"a-Creer chaîne par chaîne" 
9030 PRINT"b-Objet-de révolution" 
9040 PRINPc-Travailler sur un objet standard" 
9050 PRINPd-Creer un prisme" 
9060 PRINT"e-Creer un cercle" 
9070 PRINT"f-Creer un arc de cercle" 
9090 GOSUB 65000: REM Saisie caractère 
9100 IF C>7 OR C =-51 THEN 9999 
9102 IF CiO THEN 9000 
9110 ON C GOSUB 26000: REM, etc.... 
9999 RETURN 

14000 REM INCORPORER LA CHAINE A L'OBJET* 
14999 RETURN: * 
18000 REM ARCTANGENTE* 
18999 RETURN:'* 
20000 "FICHIER OBJETS STANDARDS 

20999 RETURN 

21000 REM GESTION DE BLOCS D'OBJETS* 
21010 CLS :PRINT"GESTION DE BLOCS D OBJETS" :FRINT: * 
21020 PRINT"a-Creer un bloc d objets": * 
21030 PRINT"b-Charger et lire un fichier bloc" 
21040 PRINT "c-Degraisser un bloc": * 
21050 PRINT"d-Detruire un bloc": * 
21060 PRINT"e-Copier ensemble standard": * 
21070 PRINT"+"-Copier un bloc et ses éléments": * 
21080 PRINT"g-Detruire bloc+objets": * 
21090 PRINT"h-Compacter un bloc": * 
21100 PRINT" i-Fusion blocs" 
21110 GOSUB 65000:'* 
21130 IF C>9 OR C < THEN 21999 
21135 IF C=9 THEN C=8 : CHAIN"M0D2 
2 1 1 40 ON C GOSUB 1 000 , 2000 , 28000 , 29000 , 27000 , 4000 . 3000 . 



/DR 

/FF 
/Ma 
>ZG 
HJ 
/RT 
,ZP 
/HN 
>PL 

m 

>EV 
>DY 

>DN 

m 

>FÛ 
>VU 
>NR 
/AL 
)HK 
>BX 
,XF 
/RZ 

>ik 

>CH 

/PB 
M 

>YZ 

>PV 
>CH 
>KX 

/GN 
,>UG 
/LU 
,>NL 
,JN 
>BZ 
>LZ 
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42000 

21999 RETURN PC 

22000 'OPERATIONS SUR CATALOGUE >CK 

22999 RETURN >P0 

23000 'Erreur sur objet >DA 

23999 CLS:PRINT"Objet inexistant...": SOUND 1,20:F0R tt= >RQ 
TO 1000: NEXT: EL* (K) =" " : EL*=" *' : : RESUME 10 

24000 REM CHOIX DES COULEURS * >VD 

24999 RETURN:* >XG 

25000 REM TRACE EN PLAN DE L'OBJET EXISTANT * ;VF 

25999 RETURN:'» : XH 

26000 REM CREER DES CHAINES AU CLAVIER >FB 
26010 IF L=49 THEN PRINT"Trop de chaînes. désole... ":GOS i>GP 
UB 65020: GOTO 26999 

26Û20 L=L+1: REM Incrementer effectif de chaînes >TU 

26025 CLS: PRINT"SAISIE CHAINES AU CLAVIER" :PRINT >XR 

26030 INPUT"Nombre de segments ":N(Lî ->MW 

2û035 IF N(L)H2 THEN PRINT "12 segments maxi !" : GOSU >ZH 
B 55020: GOTO 26025 

26040 FOR J=0 TC NtL): REM Boucle de saisie de coordonn >JH 
ees point 

26050 PRINPPoir.i numéro ";J+1 ; DE 

26060 INPUT"XT=";XT(L,J) >UK 

26070 INPUT"ïT="i¥TïL,J) >UN 

26080 INPUT"ZT=";ZTiL,J> >UR 

26090 NEXT J >CB 

26100 PRINT" Une erreur "'": GOSUB 65020: IF >TG 
C = 15 THEN 26025 

26130 PRINT" Une autre chaîne "": GOSUB 65020: I . ).M 
F C = 15 THEN 26010 

26999 RETURN >PH 

27000 TOP 1ER ENSEMBLE STANDARD . : DE 

27999 RETURN >PJ 

28000 DEGRAISSER UN BLÛC ;DF 

28999 RETURN PK 

29000 'DETRUIRE UN BLÛC /DG 
29010 60SUB 31000 /LR 
29030 PRINT: IERA,BL$:BL*="" xJ 

29999 RETURN ,>QA 

30000 IDENTIFICATION OBJET >CJ 
30002 IF L <> -1 AND EL$ ="" THEN PRINT"Objet sans n >GT 
om Présent en mémo ire": PRINT: PRINT "On garde ?": GOSUB 65 
020: IF C = 15 THEN 30999 

30010 IF EL$ <> "" THEN PRINFObjet résident ";EL* ;DZ 
: PRINT: PRINT"0n garde ?": GOSUB 65020 

30020 IF EL$ <> "" AND C = 15 THEN 30999 >BE 

30040 GOSUB 5010 >CH 

30999 RETURN >PC 

31000 'IDENTIFICATION BLOC >CK 
31010 IF BL$ <> "" THEN PRINT"Bloc résident ";BL$: PRINT >VU 
:PRINT"0n garde ?":G0SUB 65020 

31030 IF BL* "" AND C= 15 THEN 31999 >AK 

31040 PRINT: INPUT"Nom du bloc ";BL$:G0T0 7000 >TB 



31999 RETURN 

32000 REM CREER UN CERCLE * 

32999 RETURN: * 

33000 REM CREER ARC DE CERCLE* 

33999 RETURN: * 

34000 REM CREATION OBJET DE REVOLUTION* 

34999 RETURN: * 

35000 REM OBJET D'AXE OX* 

35999 RETURN: * 

36000 REM OBJET D AXE ÛV* 

36999 RETURN: * 

37000 REM OBJET D AXE OZ: * 
37999 RETURN: * 

42000 COMPACTAGE BLOC 

42010 GOSUB 31000 

42020 K=0: GOSUB 5020 

42030 FOR K=l TO E 

42040 ÛPENIN EL$(K) 

42050 INPUT#9,C0(K),6X<K),6ï(R),6ZiK),R£iK),Ll 

42060 IF L+Ll/49 THEN PRINT "COMPACTAGE IMPOSSIBLE... ":S 

OUND 1.20: GOSUB 65020: GOTO 42999 

42070 FOR 1=0 TO Ll 

42080 L=L+l:INPUT#9.NiL; 

42090 FOR J=0 TO N(L! 

42100 INPUT#9,XHL,J; 

42110 INPUT#9,YTlL,J) 

42120 INPUT«9,ZT(L,J) 

42130 NEXT J:NEx7 I 

42140 CLOSEIN 

42150 NEXT K 

42160 BL*="":El$="" 

42999 RETURN 

44000 REM CALCUL DE GX,GV,GZ et de RE * 

44999 RETURN:'» 

45000 REM ERREUR SUR BLOC 

45999 SOUND l,20:CLS:PRINT"Bloc inexistant..": FOR TT=0 

TO 1000: NEXT : RESUME 10 

54000 REM CREER UN PRISME* 

54999 RETURN:'* 

60000 REM DEFINITION DU TYPE DE SAISIE DE CHAINE PLANE* 



>PD 

UK 
,-XF 

■L 

xs 

;J5 
,XH 
>LQ 
,U 
,'LR 

■!,ï, 

>U 

VA 
;DB 

LL 
>NR 

L. 

>NR 

;QV 

• .€ 

, rp 

?MF 

;9k 

>QM 

QF 

/Ni 
;UB 
,BH 
>MN 
>PF 
DB 
, XJ 

,'LZ 




60999 RETURN: * 


;XG 


61000 REM SAISIE ECRAN* 


>RY 


61999 RETURN: * 


«H 


63000 CLS:PRINT"Routine non encore créée": SOUND 1,20 


: F ;JF 


OR TT=0 TO 200: NEXT 




63999 RETURN 


>PJ 


64000 REM CHAINAGE SUR M0D2 


>VP 


64999 CHAIN"P19 


>E6 


65000 REM Saisie caractère* 


>»T 


65010 PRINT: PRINT"Votre choix :": * 


>GF 


65020 C*=INKEY$:IF C$=" H THEN 65020:'* 


>BB 


65030 C=ASC(C*):'* 


/El; 


65040 IF D96 THEN C=C-96:G0T0 65535: * 


>DK 


65050 IF C<96 THEN C=C-64: '* 


>TB 


65535 RETURN: * 


>WH 
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TRAITEMENT 
DE L'IMAGE 



1 " partie - Initiation 

Daniel VASIUEVIC 
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~f^kT on / il n'y a pas d'erreur d'impression ! C'est un 
I ^K message vidéo que j'ai réussi à intercepter avec 
X v beaucoup de mal. Hélas, mes moyens 
techniques n'étaient pas à la hauteur, la liaison 
était médiocre et le parasifage très fort... Ainsi 
l'image captée, que voici, n'est pas de très bonne 
qualité. A vrai dire, elle est illisible. J'avais 
néanmoins décidé de la montrer au célèbre 
professeur AMSTRADOVIC dont je me flatte d'être 
un cousin très éloigné. Il fut tout d'abord surpris, 
mais un sourire malicieux remplaça aussitôt 
l'étonnement que je lisais sur son visage. "Cher 
cousin, me dit-il, pour être lue, cette image doit être 
traitée au préalable. Personnellement, je n'ai pas le 
temps, mais voici un excellent ouvrage dans lequel 
vous trouverez tout, ou presque, sur ce sujet". En 
disant cela, il me tendit un énorme volume. Malgré 
un léger frisson que j'ai ressenti au vu du numéro 
de la dernière page (6128), je le remerciai 
vivement et le quittai en regrettant d'avoir mis le 
pied dans sa tanière de savant. Dès les premières 
pages je me rendis compte que le traitement 
d'images nécessitait soit un matériel électronique 
perfectionné soit un ordinateur, qui, à défaut d'un 
traitement analogique, pourrait permettre un 
traitement numérique de l'image. Mon fils avait un 
AMSTRAD CPC. J'optai donc pour cette solution, la 
seule à ma portée, mais qui présentait un 
inconvénient : je ne pouvais disposer de la machine 
qu'après la destruction du dernier vaisseau ennemi, 
ou après la libération de la princesse une fois 
l'énigme résolue ! Ceci m'obligea à travailler tard 
dans la nuit, ce qui n'améliora nullement mon 
humeur. La lecture du fameux ouvrage y était aussi 



pour quelque chose. Je vous donne un tout petit 

extrait de la partie théorique : 

"Un point P est d-inessentiel pour E si : 

1) ND(V(P)n[Eu[P)]) = ND(!V(PÏ-PjnE) 

2) N (V(P)nlEuiPJ!) = N (iV(P)-PjnE)" 
Cela vous plaît-il ? Moi, j'adore ! Pour vous éviter 
une pareille lecture j'ai décidé de vous livrer 
l'essentiel sous une forme plus simple. Les petits 
programmes en BASIC vous aideront à mieux 
comprendre les principes et leur mise en pratique. 
En aucun cas ils ne doivent être considérés comme 
routines utilitaires. Seules les routines en langage 
machine seront assez rapides (et encore). 

GENERALITES 

Avant de vous parler de ces programmes voyons 
quelques notions élémentaires. 
Une IMAGE est composée d'une GRILLE de 
POINTS. Ces points sont définis par les positions 
qu'ils occupent dans l'image d'une part et dans leur 
VOISINAGE IMMEDIAT, d'autre part. Si l'image 
est en COULEUR, chaque point est aussi défini par 
sa couleur. Dans le cas d'une image en "noir et 
blanc" les couleurs sont remplacées par les 
NIVEAUX DE GRIS. Dans le cas où une image ne 
comporte que deux couleurs, ou deux niveaux de 
gris, il s'agit d'une IMAGE BINAIRE. En jetant un 
coup d'eau sur notre énigme nous pouvons constater 
qu'elle est composée des chiffres à 9. De deux cho- 
ses l'une : ou cette image représente un texte codé, ou 
c'est une image où chaque chiffre représente soit une 
couleur, soit un niveau de gris. Admettons la deuxième 
hypothèse. 
Une grille peut être CARREE ou HEXAGONALE. 
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Chaque point est donc représenté soit par un carré 
(ou rectangle), soit par un hexagone. Pourquoi pas 
par un triangle I Nous verrons cela plus loin. 
Apparemment, notre image est composée d'une 
grille carrée. 

Chaque point, cellule carrée ou hexagonale, a des 
voisins immédiats. Nous pouvons distinguer deux 
types de voisins immédiats VOISINS DIRECTS et 
VOISINS INDIRECTS. Les voisins directs sont les 
points qui se situent sur le CHEMIN DIRECT 
réunissant les centres des cellules, c'est-à-dire le 
chemin le plus court. Le chemin le plus court passe 
par les côtés de la cellule. Celui passant par les 
sommets étant bien entendu plus long. Les voisins 
directs d'une cellule sont donc les cellules ayant un 
COTE COMMUN avec la cellule considérée. La 
figure n° 1 montre une grille carrée et une grille 
hexagonale. La grille hexagonale n'a que des 
voisins directs, alors que la grille carrée a quatre 
voisins directs et quatre voisins indirects. En prenant 
le chemin direct on peut en partant d'un point 
traverser toute l'image. Si les cellules étaient 
triangulaires le chemin direct ne serait pas une ligne 
droite. Pour cette raison les cellules triangulaires 
sont à exclure. 

Comme la définition, le traitement d'un point 
dépend soit de la totalité de l'image, soit du 
voisinage immédiat de ce point. On peut prendre 
en compte les huit voisins plus le point traité, 
comme on peut négliger le point en question, ou les 
voisins indirects. Bien entendu, les résultats ne 
seront pas les mêmes. 

Chaque point de notre image sera donc modifié 
par le traitement approprié en fonction de ses huit 
voisins et de lui-même. Notre image comporte 21 
lignes et 40 colonnes, soit 840 points. Pour chaque 
point il faut examiner 9 points, ce qui fait au total 
840x9 = 7560 opérations. Sachant qu'en mode 2 
l'écran comporte 640x200= 128000 points, 
calculez le nombre d'opérations nécessaires. La 
nécessité des routines en langage machine est 
évidente, mais continuons. 

Il existe un troisième ensemble de points qui se situe 
par son importance (dimensionnelle) entre le 
voisinage immédiat et la totalité de l'image. C'est 
la REGION. Les régions sont séparées entre elles 



par des FRONTIERES. On distingue deux types de 
frontières : FRONTIERE EXTERIEURE et 
FRONTIERE INTERIEURE. Imaginez deux régions, 
une grande et une petite entièrement INCLUSES 
dans la première. Ces deux régions ont une 
FRONTIERE COMMUNE. Pour la grande région 
c'est une frontière intérieure et pour la petite région 
c'est une frontière extérieure. Les régions ayant une 
frontière commune sont ADJACENTES. L'intérêt des 
régions et des frontières apparaît immédiatement : 
chaque région correspond à un niveau de gris (ou 
à une couleur) et chaque frontière correspond au 
CONTOUR, qui est le DESSIN à proprement 
parler. 

Vous connaissez maintenant le strict minimum de 
définitions concernant l'organisation de l'image. 
Notre objectif est de trouver le, ou plutôt les 
moyens pour améliorer (ou dégrader) une image, 
afin de la clarifier ou de lui donner une dimension 
artistique. Il existe des moyens électroniques, mais 
nous avons opté pour les méthodes numériques. 
Pour cette raison, dans ce qui suit nous éviterons 
toutes les notions théoriques destinées aux 
électroniciens plutôt qu'aux informaticiens. 
Résumons l'essentiel. 

L'AMELIORATION DE L'IMAGE a pour but le 
renforcement de la QUALITE VISUELLE de l'image. 
Ceci peut être obtenu par le convertion de l'image 
dans une forme aussi intelligible que possible afin 
de pouvoir procéder à son ANALYSE, soit par 
l'homme, soit par la machine. Il s'agit dans ce 
dernier cas de l'ANALYSE AUTOMATIQUE. Cette 
analyse automatique est, dans la plus part des cas, 
au service de la QUANTIFICATION SELECTIVE, 
rendue possible par la RECONNAISSANCE DES 
FORMES (médecine, industrie, recherche). Les 
méthodes utilisées peuvent être détournées au profit 
de l'art graphique. 

A l'origine, l'image destinée au traitement existait 
dans la nature (à moins qu'il ne s'agisse d'une 
création). Elle a été déformée et ERODEE par les 
CAPTEURS (simple appareil photo par exemple), 
lors de sa TRANSMISSION (T.V.), ou de sa 
réception (antenne), ou tout simplement 
VOLONTAIREMENT, ce qui est le cas de notre 
énigme. 
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La RESTAURATION tend à reconstituer cette image 
afin qu'elle devienne une reproduction aussi fidèle 
que possible de l'image d'origine. 
Il n'existe pas de théorie générale de 
l'amélioration. Tout simplement parce qu'il n'est 
pas possible de définir objectivement et avec 
précision ce qui est la qualité d'une image. Surtout 
si cette définition doit comprendre aussi Ta notion 
de la valeur artistique comme c'est le cas pour une 
image dont l'original est une œuvre d'art. Il faudra 
donc utiliser des méthodes particulières et 
uniquement en tant qu'outil. Nous devons rester 
seuls juges des résultats obtenus afin de choisir le 
chemin fe plus approprié selon notre goût et notre 
désir. 

Il existe quatre CLASSES de méthodes 
d'amélioration (ou de dégradation) : 

1. MODIFICATION DE L'ECHELLE DES GRIS - 
METHODES PONCTUELLES 

2. MODIFICATION PAR TRANSFORMATION 
SPATIALE - METHODES LOCALES 

3. MODIFICATION PAR TRANSFORMATION DE 
FOURIER - METHODES GLOBALES 

4. RENFORCEMENT DES NIVEAUX DE GRIS OU 




COULEUR - METHODES DE COLORATION 
Avant de nous attaquer à l'étude de ces méthodes, 
il faut créer l'image à traiter, c'est-à-dire notre 
image-énigme. Pour cela nous utiliserons le 
programme du listing n° 1. 

Saisissez le programme et sauvegardez-le sous le 
nom "CRENIG" sur une disquette formatée et 
vierge de tout autre enregistrement. A la fin de 
notre étude elle contiendra tous nos petits 
programmes, l'image-énigme et l'image en cours de 
traitement. Certaines lignes du programme ne 
comportent rien. Conservez-les, car tous les 
programmes à venir seront bâtis sur le même 
canevas. Les lignes identiques ou très proches 
auront le même numéro à partir des centaines. Ceci 
raccourcira grandement les saisies. 
Une fois le programme sauvegardé, faites-le 
fonctionner. L'image sera créée, invisible et 
n'apparaîtra qu'une fois érodée et complétée par 
les bruits parasites. Elle sera sauvegardée 
automatiquement par le programme sur votre 
disquette qui doit rester dans le lecteur et ne doit 
pas être protégéel 



1000 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
1100 
1110 
1120 
1130 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
1270 
1280 
1290 
1300 
1310 
1320 



CREATION DE L IMAGE-ENIGME "CRENIG" 
MODE 1:WINDQW 1.40,23,25s WINDOWH. 1.40, 1,22 

DIM ec 121. 40). de (21. 40! 

easuB 1500 

58=0: lc=0 

FOR i=l T0 21:L0CATE l.lsPRINT i. 
FOR ,i=l T0 40 
L0CATE 10.1.-PRINT j 
IF i=l THEN k=k+3:60T0 1170 
IF .j=l THEN k=k+l:GQT0 1140 
s8=s8+ecu-l,.i-D 
s8=s8+ecu-l..j) 
IF ,1=40 THEN k=k+l:GOT0 1170 
5b=s8+ecti-l..i+l) 
IF .1=1 THEN k=k+i:GQT0 1190 
s8=s8+ecu..j-l) 
58=s8+ecii,,i) 

IF .i=40 THEN k=k+l:60TQ 1220 
s8=s8+ecd,j+l! 
IF i=21 THEN k=k+3:G0T0 1280 
IF i=l THEN k=k+l:G0T0 1250 

58=S8+8CU + 1..]-1) 

s8=s8+ec(i+l,,i! 

IF .j=40 THEN k=k+l:G0T0 1280 

s8=s8+ec(i+l,j+li 

dc!i,j)=(s8+k*48)/9 

IF dc(i,,i><>48 THEN 1330 

r=RND(l)-U<4)*2-(i>18J*2 

r=r-(j/10=lNT(j/10>)*2 

dc(i.j)=r+48 



>XD 

;xe 

;QF 
>XG 
>UB 
>WE 
)XK 
>JG 
>EH 
>LF 
;TV 
;ZF 
>ZC 
>QF 
>Pk 
>AR 
>0G 
•ZN 
;FP 
>MG 
,AH 
>PF 
>AR 
>ZG 
>QF 
>PK 
>AW 
,0G 
,-TR 
>WD 
>XB 
>VA 
>LQ, 



'1330 
1340 
1350 
1360 
1370 
1380 
1390 
1400 
1410 
1420 
1430 
1500 
1510 
1520 
1530 
1540 
1550 
1560 
1570 
1580 
1590 
1600 
1610 
1620 
1630 
1640 
1650 
1660 
1670 
1680 
1690 
1700 
1710 



s8=0:k=0 H.K 

NEXT ) >WE 

NEXT i:CLS#l:a*="" >RE 

FOR i=l T0 21 .LT 

FOR M T0 40 /LG 

3*=aï+CHR*idc;i..;); ;Th 

NEXT .i:PRINT#l.a$;:a*="" >XD 

NEXT i >VF 

/'AJ 

ri G-StfK'ENT&E -:rp" h WAftrt &40W Mf 
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END /VG 

FOR 1=1 T0 21 , ; i-N 

FOR j=l T0 40 >LC 

eci i . j ) =48 >AC 

NEXT i ,WF 

NEXT i >MA 

FOR 1=4 TQ 16 STEP 3 >RH 

IF i>6 AND 1<16 THEN jM EL5E j=6 >CH 

FOR k=l T0 6 /FF 

READ a,b ;HK 

FOR m=l T0 a >LJ 

ecti,j)=57:ec(i+l..î)=57:ec (i+2. j ) =57 : . j=j+l >T« 

NEXT n >K 

j=j+b , >NK 

NEXT k >XC 

>YD 

NEXT i >MC 

RETURN >FG 

DATA 5,5,8.6.5.6,0,0.0.0,0,0 >YG 

DATA 3,9,3,3,3,3,3,10,0,0,0,0 >Z6 

DATA 3,3,3,3.8,4.3.3,3,4,0,0 >YC 

DATA 5,5,3,11,5,0,0,0,0,0.0,0 >YZ 
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BRETAGNE EDIT' PRESSE 

Confiance - Qualité - Service 

Notre Groupe 

7 ans d'expérience de vente dans le monde 



Le développement de la vente par correspondance est un fait que nul ne conteste. 

Pour de nombreux chefs d'entreprises, il représente même l'avenir. 

Ce système de vente dépend de 3 points essentiels. 




1 




■ 




L'EXPERIENCE 




■ 




■ 



■ 




■ 




LA CONFIANCE 


| 


■ 







LA QUALITE 



• Expérience : notre groupe fait de la VPC depuis 1980. 

• La confiance : le choix des produits que nous soumettons à nos clients, émanation directe de nos relations 
privilégiées avec vous. 

• La qualité : les produits proposés sont sélectionnés. Ce système commercial permet au client éloigné de faire 
son choix sans se déplacer. De notre côté, nous pouvons réduire les marges, donc vendre moins cher. 

CE CATALOGUE TOUCHE PLUS D'UN MILLION DE LECTEURS 




• Boîte DATA Case 5"1/4 (50 disk) 

10disquettesDFDD5"1/4 


135F 

+ 

Port et emballage 25 F 

Total Lot 160F 


• 1 Boîte DATA Case 3**1/2 (40 disk) 
10dJsquettesDFDD3'1/2 


275F 

+ 

Port et emballage 25 F 

Total Lot 300 F 


• 1 Botta DATA Case 3" (20 disk) 
10disquettesDFDD3' 


355F 

+ 

Port et emballage 25 F 

Total Lot 380 F 


• Botte DATA Case seule 
3" 3**1/2 90 F 

+ 
Port et emballage 25 F 


. 5"1/4 95 F 
+ 
Port et emballage 25 F 


Total Lot 115 F 


Total Lot 120 F 



FABRICANTS - ARTISANS - IMPORTATEURS 

Vous avez un produit à vendre. Ce produit peut intéresser nos lecteurs ? 

N'hésitez pas à prendre contact avec nous. 

G. PELLAN Tel : 99.57.9037 





BASIC 
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INITIATION BASIC - niveau 1 
GW BASIC et BASIC Microsoft 
KUM 

Le "beet-seHer" de la mlao^ntormatlque. Les commande* et Im tatrucbons 
y «ont études* i raids d" exemptée de programmée tournis avec le résultat 
de letf acton. Tout y eet étiolé : strie, exemples, commentaire*, préeenBlon 
pour réduire l'aflbrt d assimilai on au strict mhtnum. 

CODE ER 52 (1 76 pages) : 125 F. 

INITIATION AUX FICHIERS BASIC 

J.Bénerd 

Avec ce livre, vous découvrirez progreeslvemenl le "mécanisme* de la 
consfilil on S un Renier en BASIC Mcrosolt purs celui de son exploltalon. 
L'auteur, à "aide d'exemple» concrets, vous far) explorer successivement 
les Rchiers en mémote Interne, a accès séquentiel et a accès direct, en 
évitant Ie6êcueilslesp»js courants, principaJ es causes de perte de lemps. 

CODE ER 189 (160 pages) :115 F. 

PASSEPORT POUR BASIC 

fl.flusd) 

De ABS a XDRAW, cet ouvrage regroupe Butes les commandée, foncions 
et hstudfons des dtterents BASIC. Vous l'uHsen» soit comme un dfc- 
Rormate atotiabétque pour connaître rapidement remploi d'un mot par- 
ticulier, soit comme un guide de lanscrtoRon de programmes, puisque les 
termes propres a certaties machines sont repérés par des symbd es gra- 
phique». Un livre dair et presque a garder a portée de la main. 

CODE ER 402 (128 pages) : 45 F. 

INITIATION A LA MICRO-INFORMATIQUE 
La microprocesseur 



Langages, calcul btnake, codage», fondrons logiques, behnetogteetorga- 
risalon des mlcroproosseeurs, le MC 6800 de Motorola, les mémoires, 
droits et systèmes d Interface, la programmation. 

CODE ER 407 (160 pages) : 45 F. 

INITIATION BASIC -niveau 2 
programmation structurée D. 

CrocheferD. VUàn 

Ce Kvre accessible même aux débutants vous permet de réalser des pro- 
grammes dairs et efficaces, oignes de professionnels. Il vous monte 
comment pour chaque applcatlon aussi complexe soct-etle, dèlnir les don- 
née» et les trai tomenS puis traduire son fonctionnement sou» une (orme 
graphique ^dépendants du langage de programmation. 

CODE ER 158 (272 page*) : 160 F. 
REPERTOIRE MONDIAL DES BASIC 

J.BéurO 

Les pièges les a remploi d'un même mot-dé sur différents ordriateurs ; 
l'empld des ordes BASIC su les dînèrent» mactirw; le ou le» ades 
BASIC nécessaires pour une aotonprêdse sur un or dnaleur domé; tab- 
leaux comparait» de* symboles ; Max des mots daaeée selon leur rote ; 
Me des mon pour chaque vereton . Un ou* préefs, eicace, Indispensable 
a tout programmeur en BASIC. 

CODE ER 123 (448 page*) : 185 F. 



J'APPRENDS LE BASIC 
itCaut 

S* servir d'un ordnakjur peut paraît* compaqué et réservé aux adultes. 
Danscetvre,de6lnéaux12ansetplu8..., guidé par un "prof sympa", on 
apprend le BASIC progressivement et en l'amusant De nombreux exer- 
cice» sont propose » avec leurs corrections. 

CODE ER 484 - (128 pages) : 75 F. 



PRATIQUE WBAlStCCOMPLE 
compilation - programmation 
M Lien 

Ce Ivre expose de façon très pédagogique comment préparer pute coopter 
un programme avec le compilateur Ouick BASC, de Microsoft en venions 
1 et 2. I twist), en parRculer, sur les différences qui existent entre les 
BASC compte et Interprète De nombreux exemples, totalement développés, 
rendent évidentes toutes les notons a acquérir . 

CODE ER 17(160 pagss) : 120 F. 

30 PROGRAMMES 
POUR COMMODORE 64 

D. Laseeran 

Des programmes variée mêlent en ouvre les commandes BASC le pro- 
cesseur audo et le processeur vidéo du Commodore 64. fis peuvent été 
ullleés tels quels ou servir, avec ou sans modification, de point de départ 
ou de scus-programme» a des ensembles plus importants. 

CODE ER 406 (128 page*) : 45 F. 

8256/6512 GUIDE DU BASIC 

ET DE JETS AM 

J-L. GnScoefUI Laurent 

Ce guide est un dtotonnate complet du BASIC Amstrad disponible sur les 

rrnxlèleefCW 8256 et PCW 8512. Criaq^InstijrJon.corT^ 

eet préeentée, commentée et Muttée par des exemples de programmes. 

L'ètode de ces exemples permetta au lecteur de mieux exploiter les pos- 

sMités de son ordinateur. Le Isang complet d'un programme de gestion 

de Rcfter est proposé en Rn d'ouvrage. 

CODE SY 021 5 (304 page*) : 138 F. 

TECHNIQUES DE PROGRAMMATION 
DES JEUX BASIC 

G. Ftget-BmÉy 

Cet ouvrage content des programmes de jeux écrits pour les or dna tours 

Amstad CPC 464, 664et6128. Chaque programmée»! accompagné d'une 

analyse pèdgodque de la stucture des phases eseenReles et de tableaux 

résumant la fonclon et les valeurs possible» des prindpalee variables. De 

quoi comprendre, en •/amusant comment se réalisent des programmes 

dejeux. 

CODE S Y 208 (160 page*) : 98 F. 



PASCAL 



vWÙVEAU. 
PRATrQli bUTURBO PASCAL : 
CREEZ VOS LOGICIELS 

J.-JMty» 

Ce Ivre vous enseigne de façon progressive et pédagogique comment 
analyser puis décomposer les apdicasons même le» plu» complexes, se 
fabriquer des outls professionnels en TURBO PASCAL, créer dee écrans 

de prèsentaron ou de saisie, des menus déroutants, Iran slèrer des données 
ente progtdels, adapter toute imprimante I vote or dîna leur... 

CODE ER 40 (224 page*) : 190 F. 

INITIATION PASCAL 

J.-C. QuÊmol 

Le présent ouvrage s'est appuyé sur le PASCAL USCD tout en respectant 

au mieux les spèdRcalons dee normes établies par le projet SOL. Chaque 

potot du langage faitrobjeto"undèveloppementaccomr>ac/>èd>iid 

de syntaxe et est lluetrè par des exemples. Lee chapites sont tous terminé» 

par dee exercices aln que le lecteur puisée vérifier ses connaissances. 

CODE ER 74 (224 page*) :110 F. 

♦NOUVEAU- 
70 PROGRAMMES TURBO PASCAL 
M Caceu et J.-C. GUtenor 

Vous pouvez utlser ce Ivre que vous sachiez ou non écrire dee pr ogr amm e» 
en TURBO PASCAL. Les auteurs y décrivent soigneusement chaque pro- 
gramme en donnant des exemples testée sur IBM -PC. Les programmes 
reproduit) représentent rigoureusement ceux qui ont fourni les résultats 
Indiqués. 
CODE ER 124 (192 page*) : 125 F. 

INTRODUCTION AU TURBO PASCAL 
aSMMl 

Cet ouvrage permet à ruRisateur d'exploiter la puissance excepRormetle 

de ce langage. 

CODE SY 0180 :198 F. 



GUIDE DU GRAPHISME 

J. Verront 

L'Amstrad possède des qualités graphiques étonnantes et offre de nom- 
breuses Insfuclons permettant de réaliser des appUcattons tés perfor- 
mantes. Cet ouvrage présente I raide d'exemples de programmes en BASIC 
toute» le» techniques indispensables pour permette au lecteur de réaliser 
de façon arnple et rapide «programmes graphiques. Les exemptes eûtes 
permettont de mieux comprendre les pnndpes de gestion des couleurs, 
dulisaRon des dflerentj modes vMêo, du racé de courbes et de la rèallsafon 
de graphiques animés. Les programmes fonctionnent sur les modèles CPC 
464, CPC 664 et CPC 61 28. 

CODE SY 0141 (208 page*) : 108 F. 

PREMIERS PROGRAMMES 

fl.Zax» 

Ecrivez vote premier programme BASC sur Amstad en mot» d'une heure I 
Dune prèsentaion claire, comportant dé nombreux diagrammes et Kut- 
tralons en couleur, ce Ivre vous enseigne les basée de la progremmaten 
en BASC sur Amstad. Avec lui, vous apprendrez I programmer en quelques 
heures, quel» que soient votre âge et vote formation. Aucune expérience 
préalable de la programmalon n'est nécessite. 

CODE S Y 0105 (248 page*) : 108 F. 

JEUX DE REFLEXION 

G. Ftg&BmlY 

Cet ouvrage content vingt programmes de jeux de réflexion écrits pour 

les ordinateurs Amstad. Ds tièmee dasttques comme le Pendu ou les 

Tour» de Hanoi ou rèedument nouveaux, comme MieRgri ou la Mare aux 
Diable», ils permetent de jouer avec raide de For dtoateur ou conte M. 
Chaque programme est accompagné d'une analyse pédagogique de la 
stucture de* phases eesenletles et de tableaux résumant la fonclon et 
le* valeurs potable* des prindpalee variables. De quoi comprendre, en 
s'amusant comment s* réalisent les programmes de jeux. 

CODE SY 0207 ( 200 pages) : 78 F. 

GAGNEZ AUX COURSES 

i-C. Deapot» 

Ce livre se propos* cf explquer comment II est possible dutlieer un ordi- 
nateur pour èuder une course d'une manière tatonnerie et rapide. Il est 
composé d'un programme tf envi on 700 Ignés dont r objet est simple : 
pour une course donné*, sortr un ou des dassements ttéoriques d'arrivée 
en fonclon de différents critères. I est composé de plusieurs partie» dstnese 
les apprèdalcne personnelles, le* pronoslcs, les statistique*, leesynltèse» 
générales, le Renier de suivi dee chevaux. 

CODE SY 0197 (112 pages) : 98 F. 
GUIDE DU BASIC ET DE L'AMSDOS 

J.-LGncoatM.Uurtnt 

Ce guide est un dcRormaire complet du BASIC Amstad cfepcnrjie sur te» 
modèles CPC «M, CPC 664 et CPC 61 28. Chaque mstudon, commande 
ou fonction est préeentée et commentée et iluttée par des exemples de 
programmes. L'étude de ce» exemples permetta au lecteur de mieux expier» 
le» possMilee d* son ordtiateur . Certains de ce* programme* pourront 
même et» uMtés dtedsment ou Ma) es I des programmes plus Importants. 

CODE SY 0159 (268 page*) : 128 F. 

GRAPHISME EN TROIS DIMENSIONS 

T. lartanrf-nWwr 

Vous pourrez, grâce à ce Ivre, représenter des polyèdres, des surfaces, 
vote des objets plus complexes en tds dimensions sur l'écran de vote 
ordinateur. Les faire pivoter pour le» observer sous tous leurs angles. Sup- 
primer les parles qui, dans ta réalté, seraient dissimulées au regard, afin 
de rendre répression de reief encore plus saisissante. Dessiner des lettres 
ou de» petites image» sur des plan» qui semblent iidhês, sur des cône» 
des sphères ou des cylindres... Ce genre de réalsaton ne nécessitera ja- 
mais plus de 200 à 300 ligne» de BASIC et même souvent beaucoup moins 
sur vote Amstrad. 
CODE SY 0157 (240 page*) : 148 F. 

ASTROLOGIE, NUMEROLOGIE, BIORYTHMES 

P. Burguit 

Cet ouvrage se présente en quate partes : attologie occidentale, astro- 
logie dinoise, num écologie, biorythmes. Chaque par Re comprend un expo- 
sé sur le domaine considéré, puis un logiciel de calcul et Jinterpr étalon 
dont fan ajyse est détailèe pdnt par pdnL Ce Ivre pourrait aussi s' riltuler 
•tirRaRon I l'ast ofogis, la numéroiogle et le* bkxytimee sur Amstrad' car 
I présente les éléments de base de ces connaissance» humaine» et pro- 
pose le» ou*» de calcul nécessaire» i leur appllcalon. 

CODE SY 0167 (160 pages) : 108 F. 



ASSEMBLEUR 



RSX et routines assembleur sur Amstrad 

D. RoytU.-J. Weyer 

D* tés nombreux programme* de graphismes et de mathématiques per- 
mettent aux possesseurs d" Amstad (464, 664, 6128) d'améliorer leurs 
comaissancee en assembleur Z80, grâce I des instructions «pédales : 
les RSX. Il» pourront ainsi obtenr une plus grande rapidité d'exécution et 
d* lès beaux graphisme* Lee nombreux exemples et commentâtes aident 
I assimiler tacitement les instructions. 

CODE PS 352 (368 pages) : 200 F. 



INITIATION AU LANGAGE ASSEMBLEUR 

8. Ger/HonelH.Uen 

Ce livre vous eneeigne comment programmer en assembleur au travers 
o" une dnquamalne (fexercicéB-programmes de otff cutté graduée. H s'appuie 
sur la ramUe des microprocesseurs 8060, 8085, Z80, MCS 800, etc. Il 
vous permetoa d'aborder la programmalon en assembleur aussi bien sur 
des miao-ordiiareurs Industriels que sur des machinée standard de bureau. 
CODE ER 1 (192 page») : 130 F. 

GRAPHISME EN ASSEMBLEUR SUR AMSTRAD CPC 

F. «en* 

Cet ouvrage permet de programmer des applications graphiques en as- 
sembleur sur Amstrad (464, 664,6)28). De nombreuses routines, Ivrées 
sous la tame d'un programme BASIC et (fun MBg assemble aident r amateur 
inflé à l'assembleur a progrener dans la connaissance de la programma- 
Ion du Z80. 

CODE PS 340 (304 pages) : 145 F. 

PROGRAMMER EN ASSEMBLEUR Z80 

A. Artaud 

Une nitialon a l'assembleur Z80 : après quelques définitions et rappels 
sur l'assembleur en général, rameur détails les ristuctions assembleur 
Z80, puis les pseudo et macro-instructions. Les derniers chapiree sont 
consacrés a des exemples. Le Ivre comporte de nombreux suer dose corrigés. 
Deux annexes sont consacrées aux particularités de rAmstad et du MSX. 

CODE PS 373 (224 page*) : 165 F. 

MIEUX PROGRAMMER EN ASSEMBLEUR 

T.Lxtmtd-Rcbtrt 

Métwdee de programmalon en assembleur Z80, accompagnées de nom- 
breux exemples de programmes (fappicabon fonctionnant sur les Amstrad 
CPC 464, 664 et 61 28. 

CODE SY 0193 :148 F. 

JEUX EN ASSEMBLEUR 

E. Ravis 

Les ISjeux présentés dans ce Ivre utlisent toutes les possMitès de vote 
micro-ordinateur : son, couleur, graphismes antnés, et). Pour celle raison, 
ces programmes ne fonctionnent que sur l'ordinateur pour lequel 1s ont 
été conçus et sont difficilement adaptables à des matériels dlfférems. Au- 
delà du jeu lui-même, rétude de oss programmes vous enseignera de 
nombreuses techniques de programmalon qui vous seront tés uH.es pour 
développer vos propres programmes. 
CODE S Y 0205 (104 page*) : 78 F. 

PROGRAMMATION EN ASSEMBLEUR 

G. Fagot-Banly 

Tous les uWsaleurs d'Amstrad qui veulent aller plus loin après avoir maîtrisé 
les ressources du BASIC trouveront dans cet ouvrage les éiém ents néces- 
saires pour aborder la programmation en assembleur. Apres un court rappel 
d'arithmétique binaire, les principales instructions du microprocesseur Z80 
sont décrites et accompagnées d'exemples de sous-programmes écris a 
raMl der as sui U eur (fAmstad. Le lecteur apprendra ejna commanl réaliser 
des programmes beaucoup plus performants tout en comprenant mieux 
le fonctionnement de son micro-ordinateur, 
CODE SY 0136 (208 page») : 108 F. 



LANGAGE MACHINE 
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PROGRAMMES EN LANGAGE MACHINE 

SrVsso 

La façon déprogrammer l'équivalent des Inaructons BASC : PRtNT, GOTO, 
GOSUB, FOfWlEXT... est tout d'abord étudiée, puis ces notais sont ap- 
pliquées é la réalisation d'un jeu d'action . De nombreux sous-programmes 
pourront lire réutilisés par le lecteur dans ses propres programmes. 

CODE SY 195 :82 F. 



C 



AMSTRAD CPC ET PCW 
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BASIC PLUS 80 ROUTINES SUR AMSTRAD 

HIUl 

L'auteur propose 80 routines pour srnuler des fonctions qui n'existent pas 
directement sur la machine. Les possMriés du synthétiseur de son sont 
développées pour programmer un morceau de musique ou pour produire 
des effets spéciaux. Le lecteur trouvera également des Instructions gra- 
phiques évoluées et une i ri talion au lacé en haute résolution Le lecteur 
do» déjé connaître le BASIC de rAmstad CPC pour uStser au mieux cet 
ouvrage. 
CODE PS 286 (168 page») : 100 F. 

AMSTRAD CPC: 

LE BASIC AU BOUT DES DOIGTS (n° 3) 

In» oducticn complél) au BASIC de rAmstad CPC, os Ivre permet tfappren 
dre tadementla programmalon : Instudons BASIC, analyse des problèmes, 
akjoritmee complexes, etc. De nombreux exempte de programmes lustent 
les notions développées 
CODE ER 222 (198 page») : 149 F. 



AMSTRAD 6128 : LE GRAND LIVRE DU BASIC 
Ce Ivre permet tfexpHter les capacités du BASC tocomolve. On y louve : 
bases de programmes, fonctionnement Interne du BASIC, les lis, fenètes, 
masque d'écran, protedon conte les copies, etc. 

CODE ER 268 (263 page») : 149 F. 

UNIVERS DU PCW 

P. Léon 

Environnement matériel, commande de CP/M 3.0 le BIDOS, le BIOS, fichiers 

binaires, éditeur de dtaquesss, désaseembleur Z80, graphismes, caractère 

a la loupe. 

119 F. 

AMSTRAD : LES JEUX D'AVENTURES (n° 5) 

Ce livre foumitun système d'avenu es complet, avec èd Dur, interpréteur, 
routines ulltakes et fichiers de jeux, ainsi qu'un générateur d'avenues 
pour programmer vous-même. 
CODE ER 225 (184 page*) : 129 F. 



LA BIBLE DU PROGRAMMEUR 
DE L'AMSTRAD CPC (n° 6) 

Aide Indispensable pour les programmeurs BASIC et "muer absolu pour 
les programmeurs en assembleur, cet ouvrage de référence, tés complet, 
révèle tous les secrets du CPC. 

CODE ER 226 (600 page») : 249 F. 

AMSTRAD CPC 464 : TRUCS ET ASTUCES (n ° 1 ) 

La stucUs hardware, le système <f exploitation, les tokens BASIC, le dessin 
avec jovslck, de nombreux programmes (gestion de fichiers complète, 
éditeur de son, générateur de caractères...). Une mine de tues* pour les 

rois de r astuce. 

CODE ER 221 - (278 page») : 149 F. 

AMSTRAD : GRAPHISMES 
ET SONS SUR CPC (n° 8) 

Ce livre vous fart découvrir les exceplonneles capacités graphiques et 
sonores de l'Amstad. 1 en monte ensuite rutWsaton grâce a de nombreux 
programmes Intéressants et utiltatec. 
CODE ER 230 (184 page») : 129 F. 

AMSTRAD : LE LIVRE DU LECTEUR 

DE DISQUETTES (n° 10) 

Tout ce que Ton doit savoir sur le lecteur de disquettes. Ce livre contient 
aussi, bien sûr, le DOS dèsassemblé et commenté, une geetai de loMers, 
un moniteur dague, un Dsk Manager et de nombreux programmes utjkalres. 

CODE ER 232 (230 page») : 149 F. 

AMSTRAD CPC : Montage» extension» 
etpériphértque»(n 11) 

Pour tous les amateurs d'électronique. Ce livre monte avec de nombreux 
schémas, tout os que l'on peut réaliser en la matière. 

CODE ER 235 (450 pages) : 1 99 F. 

AMSTRAD : le livre "du CP/M (n° 1 2) 
Avec ce Ivre, pas de pr oUème pour maîtriser le CP/M, vous saurez rapide- 
ment tout sur ce DOS exlèmement puissant : sauvegarde, copie, mani- 
pulation des tchiers, exemples d'utilisation. 
CODE ER 233 (238 page») : 149 F. 

LES ROUTINES 

DE L'AMSTRAD CPC (n° 14) 

Pour bien connaît e et bien ullser les roulnes utiles de6 CPC 61 28, 664 
et 464. Un Hvre è la portée de tous qui contient de nombreux exemples et 
programmes et un dèsassembleur. 
CODE ER 239 - (264 page») : 149 F. 

DEBUTER AVEC 
L'AMSTRAD CPC 6128 (n° 15) 

Ce livre s'adresse au débutant et expique tout ce qui faut savoir sur le lo- 
giciel, jusqu'à l'apprentissage du BASC. 

CODE ER 248 (219 page») : 99 F. 

LA BIBLE DES AMSTRAD CPC 664 et 6128 (n° 16) 

Ce livre de référence concerne les possesseurs if Amstad CPC 464, 664 
et 6128. Vous y t cuverez une foule de tues' indispensables dont un 
générateur de masques, des routines, des aides a la programmalon, etc. 

CODE ER 250 (430 page») : 1 99 F. 

AMSTRAD CPC TRUCS ET ASTUCES, 
tome 2 (n° 17) 

Parmi de nombreux lues pour Amstad CPC 664 et 6128 : l'analyse du 
système d'exploitation du processeur, le GATE ARRAY, les interfaces, le 

contrôle vidéo... 

CODE ER 251 (250 page») : 129 F. 



•NOUVEAU- 
AMSTRAD CPC-PCW : le livre du logo (n° 18) 

Cet ouvrage permettra au lecteur de prolter au maximum du LOGO livré 
avec rAmstad. Principaux thèmes abordés : les graphismes, les procédures, 
les récurerons, les routines de tri, un générateur de masques, sludire 
des données, tiletigence artrrioele... 

CODE ER 234 (408 pages) : 149 F. 

AMSTRAD : programmes éducatifs sur CPC (n° 19) 

Ce livre est un recuei complet de programmes et d'applications prêts I 
tenctonmr sur CPC. Ctaoue programme esttès bien commenté etf ouvrage 
couvre de nombreux sujets (mathèmatques, chimie...). Ce Ivre est tout 
particulièrement destiné aux lycéens 

CODE ER 260 (303 pages) : 179 F. 



•NOUVEAU» 
AMSTRAD : «rnmunlcations, modem et minitel sur 
CPC(n°20) 

Un Amstrad, un téléphone, un modem : la combinaison gagnante pour 
enter dans la télématique. Aspect tiéorique : fonclonnement dune Inter- 
face RS232, norme Vidéotex, description du fonclonnement du minitel. 
Aspect pratique : description d'une interface RS 232mritel. Cet ouvrage 
est également (Tune grande utillé aux utilisateurs d'un PCW. 

CODE ER 217 (206 pages) : 149 F. 

.NOUVEAU» 
AMSTRAD CPC ET PCW : la bible du graphisme 
Tout sur le GSX. Ce livre est un mua. Tout sur le graphisme sur CPC et 
PCW. Vous y touverez notamment : programmalon d'un logiciel PAINT, 

graphismes de gestion (histogrammes...), graphismes vectorisés, fonction- 
nement et réalisation d'un light pen, graphismes en langage machiné Et 
entn, pour la première fois, des explications dates sur le GSX. 
CODE ER 227 (558 page») : 199 F. 

UNIVERS DU PCW 

P. Léon 

Enviomementmalêrlel , commanda de CP/M 3.0 le BIDOS, le BIOS, khiers 
binâtes, éditeur de disquettes, dèsassembleur Z80, graphismes, caractère 
a la loupe. 
119 F. 

102 PROGRAMMES POUR AMSTRAD 

J. Deconcnat 

Ce livre, idéal pour le débutant, va au I de ses 1 02 programmes de jeux 
guider le lecteur dans r exploration du BASIC Amstad. Les programmes 
courte et faciles è recopier sont classés par niveau, chacun d'eux faisant 
appel t de nouveles connaissances. Chaque niveau commence par une 
prèsenblcn des nouvelles totuctons utiUsèes. Tous tes programmes 
sont commentés, Hustrés d'un exemple (féxéculon et fonctionnent sur 
CPC 464, 664 et 61 28. 

CODE PS 222 (248 page») : 1 35 F. 

SUPER JEUX AMSTRAD 

J.-F. Sthm 

Des jeux d'adresse, de réflexion et de hasard pour l'amateur déjé initié qui 
veut maftiser rapidement le BASIC de rAmstad. Le lecteur apprend i 
constuire des programmes de plus en plus complexes en s'aldant des 
commentâtes de l'auteur et de la liste des variables. Les motos lumineuses, 
la grsnoule, le serpent tifemal, la chenile, etc. amuseront le lecteur tout 
en fadltant son apprenlssage. 

CODE PS 257 (240 page») : 140 F. 
AMSTRAD EN FAMILLE 

J.-F- Sthm 

Une sélection de 40 programmes pour la maison touchante sept domaines ; 
les Inances, la pédagogie, la cuisine, les jeux, le temps, la santé, le bricolage 
et quelques utUtetes. Chaque programme est accompagné d'un organi- 
gramme, d'une Iste des variables et d'une expicab'on de chaque ligne 
BASIC. Pour r amateur mile au BASIC qui veut commencer i program- 
mer eflcacemenL Pour CPC 464, 664 et 61 28. 

CODE PS 240 (240 pages) : 1 45 F. 

PROGRAMMES UTILITAIRES POUR AMSTRAD 
M. Archmbault 

Nombreuses routines : unitaires de programmation, maltaise graphiques, 
la gestion de Icfiers, utilitaires imprimantes : 

110 F. 

APPRENEZ L'ELECTRONIQUE SUR AMSTRAD 

P. SeaulNs, S. Despsrrier 

Programmes permettant de visualser les phénomènes complexes de 

réiectonique. 

95 F. 

COMMUNIQUEZ AVEC AMSTRAD 

D. Borxmo. E. Duterre 

Pour tous les passionnés d'ondes courtes, codage, décodage, réception/ 

émission, titertacee. 115 F. 



CLEFS POUR AMSTRAD CPC 
tome 1 - système de base 

D. Marin 

Un mémento indispensable au programmeur de CPC : Instructions BASIC, 
jeu d'instructions du Z80, points d'entrée des rouf nés système, blocs de 
contrôle, structure interne, programmation, connecteurs et brochage des 
principaux circuits utilises. Ce mémento comprend également un recueil 
d'astuces : comment protéger le programme, comment instaler une routine 
en langage machine d ans une remarque, etc. 

CODE PS 247 (224 pagee) : 140 F. 

CLEFS POUR AMSTRAD CPC 
tome 2 - système disque 

D. Martin et P. Jadoul 

Consacré aux Amstrad CPC 464 (avec extension DD1 ), 664, 61 28 et PCW 
8256, ce mémento procure un accès rapide a r en semble dee Informai ons 
indispensables à ruMsateur du système risque : commandes, ponte d'entrée 
des routines disque, blocs de conlôte. programmation et brochage des 
circuits spédalsés. Un chapitre est réservé au langage Logo distribué avec 
le système disque. Comme le tome 1, ce mémento comprend un recuel 
de Sucs et astuces. 

CODE PS 256 (232 pages) : 155 F. 
AMSTRAD EN MUSIQUE 

D.lmaheu 

Cet ouvrage va permettre a l'uSIsateur, déjà initié au langage BASIC, la 
traduction <T ouvres musicales sur Amstrad (464, 664 et 6128). Partent 
de la génération de sons, en passant par le synthétiseur musical program- 
mable, le lecteur est amené a utiliser et développer les Instructions BASIC 
consacrées au son. 

CODE PS 324 (244 pagee) : 165 F. 

CLEFS POUR AMSTRAD PCW 

D. Roy«J.J. )Veyer 

Le guide Indispensable de lullisateur de PCW : I Halte successivement 
du BASIC Mal ard . Locoscnpt, Murtiplan, dBASE el CPfM Plus. Pour chaque 
langage ou logiciel sont donnés les diverses commandes ou instuctions 
et messages d'erreur. Des exemples (Cappicalon et un index par chapi- 
tre complétenll'ouvrage. 
CODE PS 375 (240 pagee) : 215 F. 

GESTION SUR AMSTRAD PCW 

J.-M. Jeoo et A. Gargadarmec 

C'est au travers d'applications de gestion concernant les PME et les pro- 
fessions Ibèralee que sont éli<f es trois logiciels complémentaires utiisa- 
bles sur Amstad 6128 et PCW : Locoticript, logiciel de traitement de lex- 
les; dBASE II, logidel de bases de données; Mullpian, tableur. Les modèles 
et tableaux de bord proposés sont de difficulté croissante et peuvent être 
adaptes a l'aide des commentaires des auteurs. 
CODE PS 347 (232 pages) : 175 F. 

TROIS ETAPES VERS 
L'INTELLIGENCE ARTIFICIELLE 
POUR AMSTRAD 

fl. Descamps 

Ce Ivre dévoile les secrets de rinteilgence artifldele de façon simple et 
pratque, grâce à de nombreux exemples et 27 programmes BASIC qui 
uMsent toutes les ressources de r Amstad. Le lecteur initié au BASIC 
étudiera rinteilgence artildelle à travers des jeux puis I apprendra à créer 
de petits systèmes experte. 

CODE PS 278 (280 pages) : 160 F. 

PROGRAMMER VOTRE 
TRAITEMENT DE TEXTES 

J.-C. Despdne 

Traitement de textes présenté pour ressenlei en assembleur. Pour 464, 

664 et 61 28 mis au point avec une DMP2000. il peut facilement être adapté 

à d'autres imprimantes. 

CODE SY 221 :128 F. 

LOCOSCRIPT 

B.btOu 

Ce livre est une introduction et par sa dém arche pédagogique, I vous per- 

metira une découverte aisée et rapide de ce l alternent de textes. C'est 

aussi un ouvrage de référence auquel vous pourrez vous reporter et un 

guide pratique. 

CODE SY 195 -82 F. 

ASTROCALC 

G Blanc, P. Dasrebecq 

Si vous souhaitez disposer d'un outl de calculs permettant l'élaboration 

d'un thème natal ou d'une rèvokjlon solaire, la comparaison de thèmes, 

la recherche automatique des transis et progressions tout en comprenant 

les mécanismes mis en œuvre. Alors cet ouvrage vous comblera. 

CODESYJ67.-148F. 

PERIPHERIQUES ET FICHIERS SUR AMSTRAD CPC 

D. -J. David 

Ce livre étudie la programmation en BASIC des Ichiers et des périphériques. 



Les ordres correspondant a chacun des périphériques sont présentés : 
lecteurs de cassettes et de dtequettos, Imprimantes, crayon optique, manette 
de jeu et RS 232. La programmation dee disques est étudiée en accès sé- 
quentiel à l'aide d'ordres BASIC et en accès direct à r aide de routnes orl- 
giiales. Le lecteur doitcejabien maîtriser Ie6 instructions de base du CPC. 

CODE PS 316 (168 pagee) : 120 F. 

AMSTRAD 3-D 

J.-P. Pett 

Cet ouvrage contient un véritable logidel montrant toutes les étapes néces- 
saires à la création (Tobjek et a leur visualsaticn en lois dimensions à 
l'écran. On apprend 4 créer une bibliohèque d'objets et à tes déplacer les 
uns par rapport aux autres et même à les incorporer dans des jeux cf avenue. 
Des exptcalons progressives et des dessins d'écran permettent cfasaimler 
rapidement la technique et la programmation de limage en 3 dtnensions 
sur Amstrad CPC. 
CODE PS 365 (264 pagee) : 195 F. 



MINITEL 



LES SECRETS DU MINITEL 

C. Tanmier 

Prindpaux chapitrée : les différents services proposés sur Télètel, infor- 
matique domestique et minitel, téléphonie et transmission d'informations, 
les différents prindpes de lansformation de données, comment devenir 
serveur, réalisation d'un modem universel. 

CODE ER 491 (168 pages) :115 F. 

GUIDE DU MINITEL 
P.GuMh 

Que peut-Il apporter ? Quels services et à quel prix ? Comment réduire 
ses coûte sans diminuer la qualité du service ? En toute Indépendance 
vis-à-vis des PTT, Patrick GueuHe répond à ces questions et à bien d'autres 
dans ce petit guide essentielement pratique. 

CODE ER 504 (96 pages) : 85 F. 

VOTRE ORDINATEUR ET LA TELEMATIQUE 
P.Oiwtib 

Llnformatque Indviduele est souvent synonyme d'informatique "solitaire'. 
La télématique, qui permet la-communication entre ordinateurs, brise cet 
isolement et ouvre des perspeclves passionnantes. Différents moyens, 
comme le téléphone ou la tado, sont à votre portée pour réal ser les équi- 
pements de transmission décrits dans cet ouvrage. 

CODE ER 487 (128 pages) : 90 F. 



C 



DIVERS INFORMATIQUE 



• JOUEZ AVEC M05 

Eddy DuHrtre 40 F. 

• MIEUX PROGRAMMER SUR ORC 

Mena) Arcrlamoau» . 1 1 F. 

• COMMUNIQUEZ AVEC ORIC 

Denis Boramo et Eddy Dutertre 145 F. 

• INTERFACES POUR ORIC-1 ET ATMOS 

Mf.mraf.59F. 
•ORIC A NU 

Fabrice Broche 151 F. 

• PLUS LOIN AVEC LE CANON X07 

Mena/ GANTIER 85 F. 



PRATIQUE DES IMPRIMANTES 

M. Ardumbaull 

Apprendra aux amateurs comme aux professionnels à résoudre les mile 
et un problèmes ou lte ne manqueront pa6 de rencentier las de la mise en 
service de leur imprimante. 

95 F. 



DIVERS 



LA 8AULE-DAKAR : 54 F 
EXPEDITION POLE NORD : 95 F 
EXPEDITION CARTIER LABRADOR 
EN CANOË KAYAK : 80 F. 



C 



MARINE 



• MANŒUVRE CATAMARAN CROISIERE 
■ TRAITE RADIO MARITIME : 162 F 



49 F 



PROFESSIONAL 
STANDARD 



CODE 
GU4010 



ATARI 
AMSTRAD 




179 F 



QUICKSHOTPC 



CODE 
GU4022 




175 F 



ECONOMY 



CODE GU 7005 
ATARI -AMSTHAD 




69 F 




Etudiez 
branché ! 



LOGICIELS EDUCATIFS 



Chaque logiciel comprend un rappel des cours, des 
exemples ou démonstrations, des exercices programmés 
ou libres 



APPRENDS-MOI A LIRE 1 

Activité» de prélecture en maternelle. 

A partir de 4 an» (synthèse vocale en option) 

Ensemble tf activités destinées à même en place les pré-requis en madère 
de lecture. Les exercices utilisent les fonctions graphiques de r ordinateur 
pour favoriser le développement de la représentalon spatio-temporelle, 
du schéma corporel, du contrôle de tracé, de la mémoire et de la recher- 
che d'Indices. Les consignes cfutilsation sont données sous ferme verba- 
le grâce a des messages restitués par la synthèse vocale. 

AMSTRAD (réf. P 4220) 1 disk 255 F 

T08, T08D, T09, T09+ (réf. P 421 9) 1 disk 285 F 

APPRENDS-MOI A COMPTER 1 

Grande sectlon-CP (synthèse vocale en option) 

Jeu éducatif qui conduit l'enfant à concevoir ridée de nombres, à se fami- 
iariser avec le mécanisme de la numération, a en retenr le vocabulare. 



T08,T08D,T09,T09+ 

(réf. P 4227) 



1 disk 285 F 



APPRENDS-MOI A URE 2 

Aid» è l'apprentissage de la lecture. 

Grande section-CP 

Ensemble traclvites progressives pour passer de la non-lecture à la lec- 
ture. L'enlant est amené é parcourir un véritable album sonore In ter actif : 
plus de 200 mots sont proposés an contexte ou par référence à des images 
et du son, à travers trois thèmes : la campagne, le voyage, le conte. 
AMSTRAD (réf. P 4222) __, 1 disk 255 F 

BALADE AU PA YS DE BIG BEN (6ème -Sème) 

Aies invite l'élève au pays de Big Ben dans quare épisodes Inspirés du 
roman de Lewis Caroi. Cette méthode originale, fondée sur une pédagogie 
aclve est un excellent ouf I de perfectionnemenl II comprend des tests de 
compréhension, de grammaire, de vocabulaire, des révisions du programme, 
des mini-jeux, un dictionnaire. De plus, une bande audo intégrée permet 
récoute des textes en anglais 

AMSTRAD (réf. P 009) 1 disk 225 F 

Comp. PC (réf. P 01 53) 1 disk 280 F 

ENIGME A OXFORD (4ème - 3ème) 

L'énigme sert de prétexte au perfectionnement de la langue anglaise : 
après un texte de plusieurs pages, des questions, un dictionnaire, des 
rappels et des exercices de grammaire sont proposés, entrecoupés de 
mots croisés. L'approche du programme, la réèle qualité du graphisme et 
de r exécuter, les posstbiilés d* in primer, d'entendre le texte sur la bande 
aurjo, en font un outil Idéal pour le perfecf onnement et fa maîtrise de la 
langue anglaise. 

T08.T08D, T09J09+ 1 disk 250 F 

AMSTRAD (réf. P 01 14) 1 disk 225 F 

Comp. PC (réf. P 01 24) 1 disk 280 F 

ENIGME A MADRID (4ème - 3ème) 

L'énigme sert de prétexte au perfeclonnement de la langue espagnole : 
après lecture d'un texte ilustré de plusieurs pages, des questions, un dc- 
tiomare, des expications et des exercices de grammaire sont proposés. 
Le logiciel est divisé en quate épisodes entrecoupés de mots croisés. I 
est possible de tourner les pages' du texte, de r en tendre sur une bande 
audo intégrée, de l'imprimer. Par sa convivialité, ce logiciel est un excel- 



lent outil pour la maîtrise de la langue espagnole. 

AMSTRAD (réf. P 01 51 ) 1 disk 225 F 

Comp. PC (réf. P 01 52) 1 disk 280 F 



ENIGME A MUNICH (4ème - 3ème) 

L'énigme sert de prétexte au perfectionnement de la langue allemande : 
après un texte de plusieurs pages, des quêtions, un dictionnaire, des 
rappels de grammaire et des exercices sont proposés. A travers quatre 
épisodes entrecoupés dé mots croisés, l'approche du programme, la réelle 
quai lé du graphisme er de rexècutjon, la bande audo intégrée lont d'Enigme 
a Munich un exeelent outil. 

AMSTRAD (réf. P 0146) 1 disk 225 F 

Comp. PC (réf. P 0147) 1 disk 280 F 

BALADE OUTRE RHIN 
(Sème -Sème) 

Alice vous Invite à la suivre dans son approche de la langue de Goethe, a 
travers une rœtoie en quatre épisodes llustiès, des exercices de com- 
préhension et de grammaire, des mW-jeux. . . aies au dafbrjue avec r or ora- 
teur qui analyse, évalue les réponses et le guide pas à pas, relevé progres- 
se rapidemenL Un logiciel éducatif conçu a partir d'une pédagogie active 
et servi par une bande audo Intégrée et un dictionnaire. 

AMSTRAD (réf. P 0014) 1 disk 225 F 

Comp. PC (réf. P 01 54) 1 disk 280 F 

OBJECTIF MONDE: 
LES MILIEUX NATURELS (Sème) 
L'élève part à la découverte du monde et aborde les dfférents milieux na- 
turels : végétation, faune et ci mat. Grâce i une synthèse comparative vi- 
vante, l'élève acquerra une borne compréhension des grands écosystèmes. 
Le contrôle et l'approfondissement des connaissances sont assurés par 
des construclons de paysages, des graphismes commentés, des exerci- 
ces sur cartes, des mots croisés, un dictionnaire... (Edlons Coktél Vi- 
sion). 

AMSTRAD (réf. P 0200) 1 disk 195 F 

Comp. PC (réf. P 0202) 1 disk 220 F 

OBJECTIF EUROPE 
(4ème-3ème) 

L'élève slnterroge sur r Europe, I se famiiarise avec les systèmes écono- 
miques et sociaux, les instituions tant locales qu'européennes et réalise 
ouate stages (institution poitjque, agriculture, iidusrie, locaisalon sur 
carte). Le logiciel propose des schémas expicalrs, des cartes commentées, 
des exercices variés (Edlons Coktel Vision). 

AMSTRAD (réf. P 0220) 1 disk 195 F 

Comp. PC (réf. P. 0222) 1 disk 220 F 

OBJECTIF FRANCE 
(4ème - Sème) 

Un organisme national met en place une opération d'information pour fa- 
miliariser les Français avec l'espace national et régional. L'élève parcourt 
la France aln de préparer une campagne de publicité qui portera sur les 
régions (Institutions, aménagements), les vies et les hdusrles de la métiopde 
ainsi que les DOM-TOM. Il trouvera des schémas expicatlfs, de nombreux 
graphismes, des exercices variés et amusants. (Editions Coktel Vision). 

AMSTRAD (réf. P 0210) 1 disk 195 F 

Comp. PC (réf. P 0212) 1 disk 220 F 

CONJUGUER 

Ou II pédagogique d'apprentissage de la conjugaison, ce logiciel permet 
de reconnaître toutes les formes correctes des verbes français. Tous les 
cas paricutlèrs (auxliaires, défectifs pronominaux, Impersonnels, etc.) ont 
été traités. C'est également un outil de vérilcafon et de correction orthogra- 
phique 

AMSTRAD (réf. P 4346) 1 disk 285 F 

Comp. PC XT (réf. P 5001 ) 1 disk 295 F 



MOTS EN FETE (Sème - 2nde) 

3 jeux de vocabulaire et d'orthographe 

3 jeux de vocabulaire et d'orthographe pour rèveiler les mots qui dorment 
dans les tètes. Le mot le pus long, Anagramme, Le pendu. Chacun d'eux 
offre dvers niveaux, du débutant au virtuose. Aides et commentaires ani- 
ment l'activité. Les dictionnaires dans lesquels Is puisent aléatoirement 
dépassent 80000 mors. Toula la richesse de la langue française. 
Comp. PC (réf. P 4320) 4 disks 325 F 



MATHS 6 

Algèbre pour classe de Sème 

(également Intéressant pour CM1-CM2) 

M. et M.-T. Coqulo : opérations + - x / ; fractions ; calculs sur les relatifs ; 
pourcentages avec graphisme ; suites rxoportiormeies avec graphisme ; 
calculs o* aires ; symétries or ttcg maies 

Comp. PC (réf. MC 01 A) 220 F 

AMSTRAD (réf. MC 01 B) 2K7170F 

(réf. MC 01 C) 1 disk 200 F 

ATARI ST (réf. MC 01 D) 1 disk 220 F 

MATHS44 

Algèbre pour classe» d» Sème et 4ème 

M. et M-T. Coqulo : mUlples et diviseurs d'un entier ; nombres premiers ; 
puissances d'un enter naurel ; décomposition d'un enter naturel ; P.G.C.O. 
et P PCM ; calcul algébrique ; rationnels (simplifications et opèralons 
de fractions) ; équations et inéqualons dans R . 

AMSTRAD (réf. MC 02A) 2 K7 Maths 4 170 F 

(réf. MC 02B) 2 K7 Maths 5 170 F 

(réf. MC 02C) 1 disk 200 F 

ATARI ST (réf. MC 02D) 1 disk 220 F 

MATHS-3 

Algèbre pour classe de 3ème 

M. et H.-T. Coquio : constructions de vecteurs ; calculs sur les droites ; 

systèmes linéaires 2,2 ; régionnement du plan ; calculs sur les racines 

carrées ; notions de trigonométrie. 

AMSTRAD (réf. MC 03A) 2 K7 170 F 

(réf. MC 03B) 1 disk 200 F 

Comp. PC (réf. MC 03C) 220 F 

ATARI ST (réf. MC 03D) 1 disk 220 F 

EQUATIONS 

Algèbre pour classes de Sème et 2nde 

M. Coquio : équations du second degré avec interprétation graphique , 
systèmes Inèares 2,2 ; systèmes linéaires à n équatons ; p inconnues 
(n,p < 8) (sur dsquetté seulement). 

AMSTRAD (réf. MC 04A) 1 K7 150 F 

(réf. MC 04B) 1 disk 200 F 

MATHS-Second cycle 1 
Niveau 2nde è terminales 

M. Coquio : équations du second degré avec iiterprétation graprique ; 
courbes Y - F(x) avec choix du repère et des unités ; intégrales par la mé- 
thode des rectangles avec interprétation graphique et exercices ; suites 
récurrentes avec graphisme ; fonctions réciproques. 

AMSTRAD (réf. MC05A) 2K7200F 

(réf. MC 05B) 1 disk 250 F 

MATHS-Second cycle 2 
Niveau 4èmeè terminales 

M. Coquio : inage par application affine ; courbes avec options (dont har. 

dcopy) .courtes superposées, courtes delrxes par morceaux idsquertel ; 



famile de courbes ; courbes planée (cinématique) ; courbée dêtinies par 
une intégrale. 

AMSTRAD (réf. MC 06A) 2 K7 1 70 F 

(réf. MC 06B) 1 disk 200 F 

GEOMETRIE PLANE 

Algèbre 2è me à terminales 

M. Hirtzler : utilitaire de dessin pour racer points, droites, segmente et 
cercles avec résultat de gèomètie analytique. Utiitare de tansformalons 
(translation, homotiétie, simiitude. ..) sur des igures simples (carré, trian- 
gle, cercle...). 

AMSTRAD (réf. MC07A) 1 disk 200 F 

ATARI ST (réf. MC 07B) 1 disk 220 F 

Comp. PC (réf. MC07C) 1 disk 250 F 

ESPACES ET SOUDES 
Niveau 1ère et terminales 

M. Hir tzler : utilitaire de dessin dans l'espace avec la perspective "fil de 
fer*. Représentation de solides dans l'espace avec choix des angles de 
perspective. 

AMSTRAD (réf. MC 08 A) 1 disk 200 F 

FONCTIONS ET COMPLEXES 
Niveau terminale et sup. 

M. Hirtzler : tracé de Y - f(x) , polaires, droites, enveloppes avec choix du 
repère et des unités ; calculs, calculs d'aires ; exemples (ccnchoides, cis- 
soi des, coniques) ; complexes (calculs, équations tansformalons et exem- 
ples). 

ATARI ST (réf. MC 09A) 1 disk 220 F 

FRANÇAIS 

Niveau CM1,CM2,6ème 

A. Ualu* • : dictée réussie ; exemptes et exercices ; conjugaison ; par- 
ticipes passés avec ère et avoir. 

AMSTRAD CPC (réf. MC 1 0A) 2 K7 1 70 F 

(réf. MC 10B) 1 disk 200 F 

FONCTIONS NUMERIQUES 
Niveau 1 ère è sup. 

M. Hirtzler : calcul formel : développements, écriture delà fondions dérivée 
avec simptilcation. Développements imités au voisinage de x - a. Les 
fonctions arcsin, arccos, sh, en, th sont déiries. De à 4 paramètres 
dans votre fonction. Graphes y - f(x), paramétriques et polaires. Jusqu'à 
1 graphes sur l'écran. Possibilité de revoir en changeant origine et unités 

Comp. PC (réf. PI 001 A) («es cartes) 250 F 

AMSTRAD (avec CPM +) (réf. PI 001 B) _. 1 disk 250 F 

STATISTIQUES 
Niveau 1ère et term. 

M. Hirtzler : sériée à une variable numérique : histogrammes, diagram- 
mes oi culaires, moyenne, écart-type. Classement de données brutes. Série6 
à une variable alphabétique : fréquences d'apparition des lettres dans un 
texte, diagrammes, histogrammes. Série6 a deux variables pondérées ou 
non : représentation, ajustement Inéatre, corrètalon, ajustement par fonc- 
tions log et exp. Sauvegarde et chargement des données, impression a 
tout moment 

AMSTRAD (tous CPC) (réf. PI 002A) 1 disk 200 F 

CREER ET JOUER A VEC LES MATHEMATIQUES 

Niveau Sème à term. 

M. Hi r tzler : 3 jeux de cartes pour apprendre les transformations gêomêri - 
ques : rotations, symétries axiales et centrales, translatons dans le plan. 
Symétries centrales et par rapport à des plans, translations dans l'espace. 
2 jeux de réflexion : placer 8 tours ou 8 reine6 sur l'échiquier, parcourir les 
64 cases avec le cavalier ; colorier des réseaux avec le minimum de couleurs. 
Solutions optimales données par l'ordinateur. 1 outil de création graphique : 
les pavages du plan à parlr des formes de base sauvegarde, Impression, 
exemples. Menus déroulants, souris, joystick ou davier. 

Comp. PC (nés cartes graphiques) 

(réf. PI 003A) 250 F 

AMSTRAD (avec CPM +) (réf. PI 003B)_ 1 disk 250 F. 
ATARI ST (réf. PI 003C) 1 disk 250 F 

MATRICES 

Calais sur les vecteurs : sommes, produit scalaire. Opérations sur les 
mariées : somme, produit, puissance, transposée. Permutation, suppres- 
sion, dupicarjon, échange lignes et colonnes. Déterminants, matrices in- 
verses, rang, trace Systèmes inéaires à n équations et à p inconnues. 
Pdynomes caradêris tiques, valeurs propres réelles, complexes. Fabrica- 
tion automatique de mariées Programme BASIC avec RSX en assem- 
bleur. Mode démonstration Documentation orgarisable en arborescense. 
Impression et sauvegarge sur disque Format compatible avec des tableurs 
courante. 

AMSTRAD CPC 6128/664/464 (réf. PI 004A)_ 250 F 

POLYNOMES 

Opérations sur polynômes : somme, produit composition. Valeur en un 
point Calai des racines, équations algébriques Développements limité». 
Pdynomes de Tchebycheff, Légendre, Hermite, Bernouil. Fabrication au- 
tomatique par remplissage avec formule. Tracé de courbes algébriques 
avec axes, affichage de coordonnées Copie d'èaan Programme BASIC 



avec RSX en assembleur. Mode dèmonstaton. Documentation orgarisa- 
ble en arborescence. Impression et sauvegarde sur disque. Format compa- 
tible avec des tableurs courants. 
AMSTRAD CPC 61 28/664/464 
(réf. PI 005A) 250 F 



LOGICIELS UTILITAIRES i 



PRODUITS CPC 



LA TRILOGIE" DU 6128 

(disponible sur disquette seulement). 

TASWORD6128 "MAILMERGE" 

Le traitement de textes du 61 28. 

Réf. SE 1 201 D 



360 F 



MASTERFILE6128 

Base de données reiabonneie. 

Réf. SE 1 202 D 



360 F 



MASTERCALC6128 

Tableur simple rapide et puissant. 

Réf. SE 1 203 D 



300 F 



Masfarrïe et Mastercak peuvent envoyer leurs données vers Tasword. 
Tous les mis sont uUsables sur 464S64 * extension 64 Ko DK Troncs. 
Tasword 6123 peut s'utiiser avec les extensions Vorïex. Clavier Azeny 
accommodé. 



TASWORD 464 

Réf. SE 1200 K_ 



TASWORD "DISQUETTE" 

Pour 464 et 664 (avec Tasword 6128) 

Réf. SE 1 201 D 



TASCOPY 

Copies d'écran (8 tons de grrs. formats A4 s A3) 

Réf. SE 1 208 D 



TASCOPY CPC 

Version cassette 
Réf.SE1207K_ 



SEMABANK 

Gestion de comptes bancaires rapide et fiable 
Réf. SE 1 258 D 



STATISTIQUES MULTSVARIEES 

POUR CPC 464 et 6128 

Réf. SE 1 259 D 



TASPRINT CPC sur cassette 
Réf. SE 1 205 K 



260 F 



360 F 



230 F 



190F 



330 F 



395 F 



190F 



CONVERSIONS BUS 6128 

Nouveau pour périphériques standard (extensions, synthés, digital iseur s. ..) 

Réf. SE 1212 175 F 

VIEWTEXT 

Vous venez d'acquérir le dernier jeu d'aventure et vous n'avancez pas. 
Mais quel mot peut comprendre mon ordinateur ? Viewtext affiche ou Im- 
primé tout le contenu ASCII (texte) de vos fichiers sur cassette ou dis- 
quette. N'attendez pas pour envoyer vos solutions aux magazines. 
K7 seulement (réf. ES 1001A) 135 F 

IMPRESSION 

Vous possédez une Imprimante, mais sa programmation vous rebute, de 
part sa lourdeur. Ce logiciel programme n importe quefe imprimante à raide 
de ses 65 commandes RSX. Programme style de caractères ; programme 
les différentes fabulations ; programme le contrôle de rrnprmante ; pro- 
gramme la sortie 8 bits ; programmé les recopies d'écrans paramètarJes ; 
rame ; agrandissement ; déplacement ; sélection fenêtres 

K7 (réf. ES 1002A) 200 F 

disk (réf. ES 1 002B) 240 F 

L'INTERPRETE 

La majorité des log; ciels existants sont dans la langue de Shakespeare et 
l'uSsarkm n'en é6t que plus ditVJe (urjiBtes, jeux d'aventures, jeux...). 
Ce programme vous permet de taduire en français ou en toute aute lan- 
gue vos logiciels préférés La démarche est automatique et ne requiert 
aucune connaissance particulière. Mappng du disque ; édition des secteurs ; 
acceptation de jokers ; traduit plus de 500 mots i la fds ; repère automati- 
quement sur la disquette tes textes a tadute 

Disk (réf. ES 1003A) 290 F 



ZENITH 

La capacité de stockage des disquettes 3 pouces est au maximum de 
178 Ko. lest doncdfficiede stocker et us de quate programmes par faces 
Ce programme de compactage réduit les pages de présentation ainsi que 
les programmes (BASIC ou BINAIRE) en un minrnum de place. 

Disk (réf. ES 1 004A) 250 F 

ECHOSOFT 

Faites parler votre AMSTRAD CPC sans interface, telle est la vocation 
tfECHOSOFT. Une simple application (furie source sonore sur rentes 
de l'ordinateur et aussitôt la mémorisation s'effectue. De nombreuses op- 
tions vous sont proposées : enregister, reprodute, sauvegarder, cdler- 
dècouper, déplacer, tiftiaiser, variations vitesse, etc. Deux autres program- 
mes sont livrés avec ce logiciel : le premier est un synthétiseur qui tans- 
forme le davier en un orgue ; le second est un générateur de sons (poly- 
phonique) pour incorporer dans tous les programmes de votre aéaion. 

Disk (réf. ES 1 005A) 395 F 

PSYCHOTEST 

Mesurez-vous à r or dira leur en testant vote rapidte de réflexion et de dé- 
duction. Ce logidel ne lait pas appel à des connaissances particulières, 
mais plutôt a votre sens de la déduction. Basé sur les tests d'embauché 
des ent éprises américaines, Psychotest vous ofire un divertissement garanti. 

Disk (réf. ES 1 006A) 135 F 

Ç PRODUITS CPC ET PCW J 

(2 versions sur la même disquette) 
TASPRINT LE TYPOGRAPHE 

5 écritures sur CPC, 8 sur PCW. Compatible Tasword CPC et PCW. Lo 
coscnpt Wordstar...). 

Réf. SE 1206 D 230 F 

TAS-SIGN 

L'artiste en lattes, enseignée, rédames créez-les vous-même... 

Réf. SE 1262 D 300 F 

Ç PRODUITS PCW 8256 ET 8512 J 

TASWORD 8000 

Le traitement de textes rapide avec Ivtalmerge" pour les ufjisatjcns profes- 
sionnelles 

Réf. SE1217D 450F 

MASTERFILE8000 

La base de données relationnelle ravalant en tiér ement en R A M, rapide 
flexible, simple et puissante. 

Réf. SE 1221 D 550 F 

t ^ PRODUITS "PC" IBM ET COMPATIBLES^ 

TASWORD PC 

Le traitement de textes des PC, simple, puissant et avec 'Màtnerge'. 

Réf. SE 1226 D 490 F 

TASPRINTPC 

Le typographe, 20 écri tijres, créateur de caractères, mode "machine a écrire*. 

Réf. SE 1251 D 390 F 

TAS-SIGN PC 

L'artiste en lentes enseignes, réclames et crèez-lee vous-même. 
Réf. SE 1263 D 390 F 

Q DIVERS "^ 

BOURSE 2000 

Développé avec des agents de changes, ce logidel vous permet de vous 
plonger dans lé miieu de la bourse. PLus d'hésitation, grâce aux formules 
d" anticipations et de moyennes de ce logiciel. Achetez votre journal, suivez 
les cours de la bourse et nous vous garantissons pfus que de substantiels 
bénéfices. Avec une ou plusieurs valeurs sur trois années : la crassanes 
annuele, révdufjcn et la moyenne mobie, les ports et les figures (métiodes 
reconnues par les agents de changes), les hausses et les baisses moyen- 
nes, la genèse, la situation. Calqué sur les outls des grandes agences ou 
des duos d'investissement, Bourse 2000 gère vos titres, actjonsouobt gâ- 
tons. 

Disk CPC (réf. ES 1 007A) 450 F 

Disk PCW (réf. ES 1007B) 850 F 

Disk PC (réf. ES 1007C) 1200 F 

SILIPACK 

La musique à votre portée 

2 programmes : performances * qualités 

SIUDRUM : boite à rythmes programmables, gérée par menus déroulants 
(davier ou joystick). 

SILiïONE : synthétiseur sur 5 octaves géré par menus déroulants (clavier 
ou joystick). Générateur BASIC semblable S celui de Sildrum. Récupère 
les rythmes osés par Slkjrum. Gestion des notes et des blanches 
Réf. ES 1008A 375 F 



Réf. ME 01 




890,00 F TTC 

+ Forfait port + emballage 
uniquement en recommandé (30 



F) 



électronique avec fichier de codes postaux. 

- Mailing sortie listing ou étiquettes. 

- Transformation des fichiers en ASCII pour les 

- Menus et touches de fonctions vous aident 
dieuses. 



. PC1 MERCI 

Fourni avec câble minitel, 1 
disquette logiciel, 1 disquette 
exemples, livre d'initiation, se 
branche entre votre PC 151 2 
et le minitel. 

POSSIBILITES 

- Remplace votre minitel. 

- Affichage complet en cou- 
leur sur votre PC 1512. 

- Prise d'information en auto- 
matique sur les serveurs (an- 
nuaire, banque, etc.). 

- Calcul des coûts de com- 
munication. 

-Constitution de votre an- 
nuaire à partir de l'annuaire 



reprendre avec dBASE II ou autres, 
et vous suppriment les saisies fasti- 



• PC2 MERCI 

Fourni avec carte MODEM, 
câble téléphone, 1 disquette 
logiciel, 1 disquette exemples, 
livre d'initiation, carte à inté- 
grer dans votre PC 1512. 

MODEM 

- V21 300 bauds Full Duplex 
(appel ou réponse). 
-V23 1200/75 75/1 200 Full 
Duplex (réversible). 

- Livret de programmation 
pour les professionnels. 

- Compatible Hayes. 

POSSIBILITES 

Les mêmes que PC1 , plus : 

- Connexion et appel en auto- 
matique aux serveurs à partir des procédures mémorisées en fichiers. 

-Sa compatibilité Haye* vous permettra de transférer tous vos fichiers avec les 
progiciels Open Access, Symphonie, Crosstalk, etc. 

- Autonome, vous pourrez sur votre PC lancer une connexion sur un serveur à une 
heure de votre choix et en prendre toutes les informations sans môme être présent. 




Réf. ME 02 



2 990,00 F TTC 

+ Forfait port + emballage 
uniquement en recommandé (30 F) 



• ADAP CPC 1 Mercrtel 


Adaptation minitel sur l'interface RS 232 Amstrad + câble 


Réf. ME 03 


360,00 F" 


♦ 20F 

forfait port + emb. 

Recommandé 
facultatif + 10 F 

+ 25 F 

forfait port + emb. 

Recommandé 
UNIQUEMENT 

+ 50F 

forfait port + emb. 

Recommandé 
UNIQUEMENT 


• ADAP PCW1 Mercitel 


Adaptation minitel sur interface PCW + câble + logiciel 


Réf. ME 04 


918,60 F 


• CABLE MINITEL 


Câble liaison RS 232/DIN Minitel 


Réf. ME 05 


195,00 F 


• CABLE PC/IMP 


Câble liaison PC/imprimante parallèle 


Réf. ME 06 


120,00 F_ 


• MERCiïELCPCI 


Interface transmission minitel + câble minitel pour CPC 464/51 28 


Réf. ME 07 


1135,00 F ~ 


• MERCiïEL CPC 2 


Interface transmission minitel + modem 1 2 modes pour CPC 464/61 28 


Réf. ME 08 


2370,00 F 


• EXT. MEM. PC 640 


Kit pour augmenter la mémoire PC de 51 2 Ko à 640 Ko 


Réf. ME 09 


699,70 F 


•EXT. ME M. PCW 51 2 


Kit pour augmenter la mémoire PCW de 256 Ko à 51 2 Ko 


Réf. ME 10 


581,10 F 


• LOGICIEL RESTAU. ENTRE 


Logiciel de gestion d'une cafétéria sur PC 


Réf. ME 11 


5930,00 F 


• LOGICIEL COMiïE ENTRE 


Logiciel de gestion de comité d'entreprise sur PC 


Réf. ME 12 


7116,00 F _ 


•NEWNETBUR0 1 


Carte réseau supplémentaire + câble bureau + logiciel 


Réf. ME 13 


2953,10 F" 


• NEWNET BURO 2 


Valise kit 2 cartes réseau + 1 câble bureau + logiciels 


Réf. ME 14 


6990,00 F 


• NEWNET BURO 3 


Valise kit 3 cartes réseau + 2 câbles bureau + logiciels 


Réf. ME 15 


9476,10 F 


• NEWNET BURO 4 


Valise kit 4 cartes réseau + 3 câbles bureau + logiciels 


Réf. ME 16 


11966,70 F 


• MERCITEL PCW 1 + 


Logiciel émulation minitel pour PCW interface + câble PCW/Minitel 


Réf. ME 17 


1719,70 F 


• MERCITEL PCW 2 + 


Logiciel émulation minitel + modem V21 V23 + interface 


Réf. ME 18 


3261,50 F 


•MERCITEL PCW 2 R 


Idem PCW 2 + mais modem V21 V23 + réponse automatique 


Réf. ME 19 


3661,50 F 


• MERCITEL PCX 


Carte modem V21 V23 + logiciel émulation minitel couleur numérotation auto etc. 


Réf. ME 20 


1990,00 F_ 



NOUVEAU 



AMSNET II 



- Réseau local PC 1512 et compatibles PC XT AT utilisant MS/DOS 3.1 et au-des- 
sus. 

- AMSNET II est un réseau haute performance à coût adapté à la nouvelle génération 
de machines compatibles. 

- Débit de 1 million de bits par seconde sur câble téléphonique 1 paire torsadée. 

- 254 stations connectées au maximum sur le réseau sans serveur dédié. 



-Chaque interface possède son propre micro-processeur qui soulage le PC de la 
gestion du réseau. Une ROM peut être ajoutée pour booter directement sur le ser- 
veur. 

- Un puissant utilitaire permet de gérer la connexion et l'accès du réseau ainsi que le 
contrôle du bon fonctionnement. 

- Une messagerie inter machines est disponible. 



FOURNITURES : AMSNET II est livré complet avec une carte d'interface, un logiciel d'accès et de gestion du réseau et un câble de raccordement sur une prise PTT murale. 



• AMSNET II BURO 2 


Valise kit 2 cartes réseau + 1 câble bureau + logiciels 


Réf. ME 21 


6990,00 F " 


+ 50F 

forfait port + emb. 

Recommandé 

UNIQUEMENT 


•AMSNET II BURO 3 


Valise kit 3 cartes réseau + 2 câbles bureau + logiciels 


Réf. ME 22 


9476,14 F 


• AMSNET II BURO 4 


Valise kit 4 cartes réseau + 3 câbles bureau + logiciels 


Réf. ME 23 


1196,14 F_ 
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PROFITEZ DES PRIX BRETAGNE EDITTRESSE 



BOITES DE 
RANGEMENT 
MEDIA BOX 
POSSO 




''WHM à 150 disquettes 
3", 3" 1/4, 3" 1/2 




f25F 



DISQUETTES, « = ' 

Recommandé facultatif 
3" P»' Boîte 7 F en plus 



JM COMPACT 
DISC 



Pour 13 compact 
dises 

Port 25 F 

Recommandé facultatif 
par Boîte 7 F en plus 




m f 



Pour 
16 minicassettes 



9SF 



CASSETTES P °« 25F 

Recommandé facultatif 

AUDIO p ar B ° î,e 7 F en p |us 





/«f 



VIDEO 

Pour 9 cassettes 

vidéo VHS, V2000 

Beta 



Port 25 F 

Recommandé facultatif 
par Boîte 7 F en plus 




Pour 50 
à 70 disquettes 



f?SF 



DISQUETTES Port 25 F 

_ lf . . Recommandé facultatif 

5 1/4 P ar Boi,e 7 F en plus 



c 

L 
A 

S 
S 
E 

Z 

E 
T 

P 
R 
O 
T 
E 
G 
E 
Z 



DES AFFAIRES A NE 
PAS MANQUER 



P<Bm&®2 qu'un m® 
répsirsithmi g@ûî® 
pluB oh®r qu'une 




Housses de protection - Simili cuir - (le lot clavier + moniteur) 
Fabriquées et garanties par nos soins. 



n 


CPC464et664 


Moniteur monochrome 


□ 


219 F port + emb. 20 F 






Moniteur couleur 


D 


219 F port + emb. 20 F 


D 


CPC6128 


Moniteur monochrome 


D 


219 F port + emb. 20 F 






Moniteur couleur 


D 


219 F port + emb. 20 F 


D 


PC 1512 


Moniteur monochrome 


D 


249 F port + emb. 20 F 






Moniteur couleur 


n 


249 F port + emb. 20 F 


n 


MACINTOSH 


Clavier simple 


□ 


249 F port + emb. 20 F 






Clavier pavé numérique 


□ 


249 F port + emb. 20 F 


u 


ATARI ST 


Moniteur SM 125 


□ 


219 F port + emb. 20 F 


n 


DMP 2000 Amstrad 






110 F port + emb. 20 F 



DES DISQUETTES 

(doubles faces, doubles densités) 



- Disquettes 5" 1 /4 avec la pochette 
lot de 10 

- Disquettes 3" 1/2 avec la pochette 
lot de 10 

- Disquettes 3" Maxell avec la pochette 
cartonnée, lot de 10 





tr 



VECTORIA 3D 



^ 



Un logiciel d'initiation au dessin 
en 3D, sur ordinateur. 

Une bonne approche de la CAO 

(Conception Assistée par Ordinateur), 

facilitée par l'emploi de fonctions 

simples et bien pensées. 

Le logiciel est rapide, permet le dessin 

"3 vues", la présentation 3D et l'intégration 

des objets créés au sein d'un décor. 

Le manuel d'accompagnement 

permet une prise en main 

très rapide du logiciel. 

Vectoria 3D. version PC. 

est utilisable 

sur disquette ou disque dur. 

Il utilise la souris ou le clavier. 



/AÏ 



Au prix exceptionnel 

Sur PC 410 

CPC6128 410 



) 



Très bientôt sur ATARI etAMIGA. 



J 



BON DE COMMANDE 



a adresser à 



BRHTAGNL EDIT'PRIïSSE La Haie de Pan 
35170 BRUZ Tél. 99.57.90.37 



ATTENTION 

Bien inscrire les ARTICLES dans 
la bonne rubrique ; le port étant cal- 
culé en fonction de l'objet a 
expédier. 



CALCULEZ LE COUT : Montant de l'article + Port = VERITE DES PRIX 




DESIGNATION 


Réf. 
au n° 


Qté 


Prix 
unitaire 


+ Port 


Montant 


e 
• 

> 

5 






























































Envoi UNIQUEMENT en recommandé (20 F par cassette) 


TOTAL 
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Envoi Poste : 


10 % 


TOTAL 




25 

il 

■Soi 






























































Envoi UNIQl 


JEMENT en recommandé (20 F par logiciel) 


TOTAL 




a 
5 
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Envoi 20 F/h< 


Misse + 7 F en recommandé - disquettes forfait 20 F (étranger, 


nous consulter) TOTAL 




TOTAL 




MONTANT GLOBAL 





Je joins mon règlement chèque bancaire □ chèque postal □ mandat □ carte bleue □ 



NOM 

N° 


Rue 


Prénom 






Ville 




Cnt\p nrwtal 


"Ecrire en majuscules'' 



IMPERATIF 

Si vous choisissez le paiement 

par Carte Bleue, n'oubliez pas 

d'indiquer le n° de la carte et 

la date de validité ainsi que 

votre signature 



N° CARTE BLEUE 



Signature 



DATE Limite de validité 






» 

* 






or 

bVÎ 8 



Lionel GARDEUR 



BILLARD AMERICAIN 



Ce logiciel est un simulateur de billard 
américain ou "pool" avec 15 boules 
numérotées et une blanche. Il y a en fait 2 
règles, la première est décrite dans les livres 
spécialisés et celle qui est utilisée dans les 
"cafés". La différence essentielle se situe à 
plusieurs niveaux : le comptage des points, les 
pénalités, le côté du joueur. Ces deux règles 
sont donc intégrées dans le logiciel, les 
joueurs choisissant celle avec laquelle ils 
préfèrent jouer. Est incluse aussi la façon de 
tirer sur la boule de choc, soit par un 
affichage de la queue de billard directement 
sur la table, soit par une représentation sur le 
côté, cette dernière façon de faire étant 
nettement plus difficile pour tirer dans une 
direction particulière. Les principales règles 
sont incluses dans le programme. 

E PROGRAMME se compose de plusieurs modules 
chaînés entre eux. Le programme "BILLARD" est 
un chargeur qui positionne le H IMEM à &86AE afin 
de pouvoir charger le programme "DATA. IMG", 
^résultat de la compilation d'une image faite à par- 
tir d'un logiciel de dessin. Le programme suivant appelé 
DATA. DEC est un décompilateur qui va afficher le des- 
sin de présentation pendant que les autres program- 
mes se chargent. On trouve le programme OBJET qui 
est le programme en langage machine de déplacement 
des boules. Puis la procédure se termine par le char- 
gement du programme BASIC principal. Une fois 
chargé, on demande au joueur les règles désirées, c'est- 
à-dire les règles officielles ou les règles de "café", en 
fonction de la réponse, le calcul des points sera diffé- 
rent. L'affichage direct est le mode le plus simple car 
la représentation de la queue se fait directement sur la 
table, alors que l'affichage sur le côté est une repré- 
sentation de la direction par rapport à la boule. Une 
fois ces questions complétées, l'écran devient noir puis 
au bout de quelques instants, l'écran de jeu apparaît. 
A gauche, il y a la table de billard vue du dessus. A 
droite, en haut, il y a les cases contenant les boules qui 
tomberont dans les blouses. En dessous les scores des 
joueurs s'inscrivent. Juste au-dessus du score d'un 
joueur, se trouve un point jaune indiquant lequel des 
deux joueurs va jouer. Dans le cas des règles de café, 
le joueur ne s'affiche pas aussi longtemps qu'aucune 
boule n'est tombée dans une blouse. Les joueurs jouent 
donc à tour de rôle. A droite de la table se trouve la 
valeur des boules, elles sont numérotées de haut en bas 
et de gauche à droite, les dizaines ne sont pas indiquées 
mais sont comptées dans le jeu. Suivent trois tableaux 
de détermination du tir. La boule blanche isolée ou 
entourée par un segment blanc représente la boule de 
tir. Dans le cas de la méthode de tir sur le côté, le seg- 
ment blanc représente la direction du tir. Juste en des- 



sous se trouve une représentation symbolique d'une 
boule et la fin de la queue afin de simuler la position 
de la queue par rapport à la boule pour lui imprimer 
un effet. Pour finir, en dessous, se trouve une règle gra- 
duée qui détermine la force du tir. 



Le programme assembleur... 



De &9000 à &935F, il y a les dessins des boules de 
billard. Etant donné que l'affichage se fait en mode 0, 
il y a 2 représentations pour une boule. Le dessin des 
boules de deux couleurs a été inversé afin de simuler 
un mouvement de la boule. Théoriquement la gestion 
des sprites se fait par un programme spécialisé qui com- 
prend la hauteur et la largeur. Ici, ce n'est pas néces- 
saire étant donné qu'il n'y a qu'un seul type de sprite, 
en l'occurrence les boules de billard. En fonction de la 
position paire ou impaire de la boule, on affiche l'un 
ou l'autre sprite de la même boule. 
Les tables RTA1 et RTA2 sont celles utilisées par le pro- 
gramme de gestion de l'effet. En fait, l'effet se maté- 
rialise par une modification de l'angle, soit dans le sens 
trigonométrique, soit dans l'autre sens ; il y a donc deux 
tables. Pour avoir la déviation modifiée, il suffit de cher- 
cher dans la table la valeur de DX et DY, puis de pren- 
dre les deux valeurs suivantes. 

Table DRO et GAU : les deux premiers octets donnent 
l'indice dans la table, on obtient les coordonnées d'af- 
fichage de la boule quand elle tombe dans un trou, il 
suffit d'afficher aux coordonnées X et Y la boule cor- 
respondante puis d'incrémenter le pointeur, pour pré- 
Carer la boule suivante, 
a table TT est la table des trous... Elle est divisée en 
trois colonnes, les deux premières colonnes sont les 
positions des trous, la troisième donne l'octet pour la 
mise à jour dans la table TBT. 

Les octets FPX et FPY contiennent la future position de 
la boule avant affichage. 
Les octets TBXY mémorisent la table des chocs. 
Les octets APXY contiennent la position actuelle de la 
boule. 
Les octets RE servent pour affecter les registres IX et IY. 



LA TABLE DES CHOCS. TBC 



Octet 
TBC-1 













I I I 


7 


6 


5 * 


3 


2 


1 






GAUCHE 
DROITE 



BAS- 

MILIEU ■ 
HAUT- 



HAUT 

- MILIEU 

BAS 



Lorsqu'une boule tombe dans un trou grâce à l'octet 
de la troisième colonne de la table TBT, on met à jour 
cet octet, ce qui permettra de déterminer si elle tombe 
à droite ou à gauche. 
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TBC 



Pointeur dans la table 

Nombre de chocs au 
cours du coup joue 

Choc de côté (bande) 

Adresse des boules 
choquées 



Les tables T1 à T8, en fonction du déplacement de la 
boule, il y a choc si et seulement si une boule se trouve 
aux positions adéquates, ces tables donnent les posi- 
tions relatives en fonction du déplacement de la boule 
sachant que le premier octet donne le nombre de posi- 
tions possibles d'une boule. 
TABLE TCB 



01 23<5S7I9»BCDEF01 2J4S87IJABCDEF 



\-l 



-> INUTIISES 

ADRESSE SPRITE IMPAIR 

ADRESSE SPRITE PAIR 

MM 

EFFET . CHOC 

•DECIMALE- DE LA VITESSE 

ANGLE DE CHOC MOYEN 

X"2 

Y2 

KUTILBE 

AN1 

NUTIIISE 

NB DE CHOC BANDE 

OCTET SS 

VITESSE 

DX 

DY 

X • 

Y 

ADR. D"AFF DU SPRITE 



Table relative pour chaque boule 

En et 1 on a l'adresse du sprite à afficher. 

Y et X est la position de la boule. 

DY et DX correspondent à la déviation en x et y. En 

faisant une rotation sur ces octets, s'il y a débordement, 

alors il y a modification de la position de la boule. 

Vitesse : reflet de la vitesse de la boule, elle varie de 

1 à 10. 

L'octet SS est spécial : en fonction des bits positionnés 

et des octets DY et DX on peut déterminer le sens et la 

direction de la boule. 



7 6 5 4 3 2 10 



0DX>0 
1 DX<0 
ODY>0 
1DY<0 

Pas de déplacement en x > 

1 Déplacement x > 

Pas de déplacement x < 

1 Déplacement x < 

Pas de déplacement y > 
t Déplacement y >0 

Pas de déplacement y < 

1 Déplacement y < 



Pour chaque boule il y a donc &20 octets de réservés 
afin de gérer tous les déplacements des boules. 
Les tables TS et TC sont des simili tables de sinus et cosi- 
nus qui donnent en fonction d'un angle et de la vitesse, 
la vitesse résultante. 
La table TBT correspond aux boules tombées. 



TBT 
























00 à droite 

01 à gauche 











En &98AD commence le programme proprement dit, il gère 
le déplacement des boules de billard et ne rend la main au 
programme BASIC que lorsque toutes les boules se sont immo- 
bilisées. Les explications contenues dans le listing source doi- 
vent être suffisantes pour comprendre l'algorithme, en résumé, 

• &98AD à &997A 

C'est la boucle principale, c'est ici qu'est gérée l'initialisa- 
tion du nombre de chocs sur la bande, le nombre de boules 
en mouvement, l'initialisation du registre IX qui pointe sur 
la table TCB de la boule en mouvement, la vitesse de la boule 
avec le ralentissement. Le déplacement de la boule se fait par 
appel à un sous-programme en &997C, l'affichage des bou- 
les tombées dans une blouse, la mise à jour de la table TBT, 
l'effacement et l'affichage de la boule à sa nouvelle position 
et enfin c'est ici que l'on détermine s'il y a encore une boule 
en mouvement. 

• &997C à &99E2 

On gère le déplacement de chaque boule, on calcule la posi- 
tion future de la boule et avec un appel au sous-programme 
TCHOC, on vérifie s'il y a un choc, si oui, on continue sur 
CHOC sinon on passe à la position suivante. Le nombre de 
déplacements dépend de la vitesse. 

• &99E3 à &9A72 

Sous-programme de test en cas de choc. On commence à ini- 
tialiser la table des chocs, puis on vérifie s'il y a un choc sur 
la bande ou une chute dans une blouse. Sinon on charge la 
table des coups en fonction de la direction de la boule. C'est 
à partir de cette table que l'on vérifie s'il y a choc avec une 
autre boule. 

• &9A73 à &9AB6 

On initialise le registre HL avec une des tables Tl à T8 en 
fonction de la direction de la boule. 

• &9AB7 à &9AD1 

Mise à jour de la table TBC dans le cas de choc avec une 
boule. 

• &9AD4 à &9B4A 

C'est ici que se fait le test pour savoir si la boule tape contre 
une bande ou bien tombe dans une blouse. 

• &9B4B à &9B6A 

On initialise le sprite d'affichage de la boule en fonction de 
la position de la boule (position paire ou impaire en x). 

• &9B6B à &9B7B 
Mise à jour de la table TBC 

• &9B7C à &9EAE 

C'est la partie la plus importante du programme, c'est ici que 
l'on gère les chocs entre les boules ou contre la bande. On 
teste si la boule est tombée dans un trou, si oui, on arrête le 
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sous-programme sinon on regarde si c'est un choc de côté, 
si oui, on ralentit la boule, on incrémente pour cette boule 
le nombre de chocs bande, on met à jour le côté du choc, on 
calcule la nouvelle direction puis on saute au programme qui 
gère l'effet. Dans le cas d'un choc avec une boule, on met 
à les octets qui servent pour ce choc, on initialise le registre 
IY avec l'adresse de la boule choquée, on calcule l'octet SS 
de la boule choquée, ensuite les directions DX2 et DY2 en 
fonction du choc, enfin l'angle de choc. 
On initialise ensuite DX1 et DY1 afin de pouvoir calculer 
l'angle de rebond de la boule en mouvement. On calcule la 
vitesse des boules choquées à partir du calcul précédent des 
anales et de la table des "sinus" puis la vitesse résultante 
delà boule de départ à partir de la table des "cosinus". 
Pour terminer, on gère l'effet, tout simplement en modifiant 
l'angle de rebond en fonction du sens. 
Sachant que l'octet qui se trouve en (IX +#11) correspond 
à l'effet, on y met le nombre déterminé par la déviation de 
la queue sur la boule et en fonction du sens, on positionne 
le bit 8. En cas de choc, on inverse le sens de rotation de la 
boule. 

Suivent un certain nombre de sous-programmes : 
le premier détermine l'angle de la boule en fonction du sens 
et de la déviation en X et Y de la boule. Sachant que le cer- 
cle trigonométrique ici ne comporte que 32 angles différents. 
Ensuite on trouve le sous-programme SAN qui est en fait un 
sous-programme de CAN. 

Le sous-programme MAN est utilisé par le sous-programme 
EFFET et c'est lui qui modifie l'angle de rebond à droite ou 
à gauche, il utilise les sous-programmes qui suivent et qui 
sont : XP, XN, YP et YN. 

Afin d'avoir un affichage constant des boules le sous- 
programme AT est une temporisation variable qui dépend 
du nombre de boules en mouvement. 
Le sous-programme CPT affiche les boules tombées dans les 
blouses. 

Le bruitage est effectué par le sous-programme BRU qui uti- 
lise les 3 tables TBR1 , TBR2 ET TBR3, pour charger les 
registres du PGES. 

Le programme AFF est celui qui permet d'afficher les sprites 
des boules, il a été adapté pour ce jeu afin de gagner en rapi- 
dité et pour avoir un affichage au pixel. 
En &A100, c'est l'appel par le BASIC pour afficher une 
boule, appelé par CALL &Al 00, x, y, ad avec x et y la 
position de la boule et ad l'adresse du sprite à afficher. 
En &A1 10, c'est l'initialisation des tables DRO, GAU et 
TBT en début de partie. 

Quelques informations su p plémentaires 

La vitesse : à partir du BASIC, on détermine la force par 
la variable FO qui est "pokée" en IX + 6, en supposant que 
IX pointe sur la boule que l'on frappe. Donc, en IX + 6 on 
a un octet compris entre 1 et 10, en IX + 10, on a au départ 
0, on ajoute une valeur égale à # 1 à chaque fois que l'on 
déplace la boule. Quand cet octet déborde, on décrémente 
la vitesse, donc l'octet IX + 6. Ainsi lorsque l'octet IX + 6 arrive 
à 0, la boule s'arrête. C'est l'octet IX + #10 que j'ai appelé 
"décimale" dans le programme source. 



Le programme BASIC principal 



10 à 90 

Demande des règles 

100 

Demande types de règles et de tir 

110 à 190 

Data d'initialisation de la table TCB 

200 à 240 

Data des angles de tir 

250 à 450 

Initialisation des variables 

460 à 550 



Raz des couleurs 

560 à 590 

Dessin de la table 

600 à 680 

Dessin des quatre coins 

690 à 720 

Dessin des quatre boulons 

730 à 760 

Dessin des quatre rebords 

770 à 820 

Dessin des diamants 

830 à 1000 

Dessin des trous 

1010 à 1060 

Dessin du titre 

1 070 à 1 1 00 

Affichage de "BILLARD" 

11 10 à 1200 

Dessin du tableau des scores 

1210 6 1330 

Dessin du tableau de la direction et de la force 

1340 6 1450 

Dessin de la valeur des boules 

1460 6 1490 

Dessin de la boule de choc 

1500 6 1640 

Dessin des boules sur la table 

1650 

Initialisation de la partie 

1660 6 1720 

Mise à jour des couleurs après dessin de l'écran 

1 730 à 1 760 

Affichaqe du score des joueurs 

1770 

Positionnement de la boule blanche sur la table 

1790 6 2100 

GESTION DE LA DIRECTION DU TIR 

1830 6 1870 

On affiche la boule de tir 

1880 

Test si fin de partie 

1890 

Mise à de la partie décimale de la vitesse 

1900 6 1950 

En fonction de AF on affiche la queue au niveau de la table 

ou sur le côté 

1960 6 2010 

Entrée d'un caractère 

2020 6 2100 

En fonction de la touche enfoncée, ou de la méthode de tir, 

on affiche la queue de billard 

21106 2210 

GESTION DE L'EFFET 

2220 6 2330 

GESTION DE LA FORCE DE TIR 

2340 6 2480 

DEPLACEMENT DES BOULES 

2390 6 2410 

On initialise les variables de la boule 

2420 6 2430 

Mise à jour en mémoire des variables dans la table TCB 

2440 

S'il s'agit des règles officielles, on mémorise la position des 

boules 

2450 

Mise à de l'octet &940F 

2460 

Raz du nombre de chocs sur les bandes 

Déplacement des boules par appel au sous-programme en 

langage machine 

Comptage du nombre de chocs sur les bandes 

2470 

Détermination du nombre de boules tombées 
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2480 

Raz du nombre de boules tombées 
2490 à 2920 
CALCUL DES POINTS 
2540 

Détermination en fonction de la règle 
2550 à 2730 
Règles de café 
2740 à 2920 
Règles officielles 
2930 à 3050 
FIN DE PARTIE 
3060 à 3190 

AFFICHAGE DU SCORE ET DU JOUEUR 
3090à 3120 
Affichage du joueur 
3130 a 3190 
Affichage du score des joueurs 
3200 a 3320 

Calcul des points en fonction de la position des boules tom- 
bées et de leurs valeurs 
3330 à 3390 

Sous-programme de remise à zéro du nombre de chocs sur 
la bande 
3400 à 3490 

Sous-programme de comptage du nombre de chocs sur la 
bande 

3500 à 3670 

Sous-programme de déplacement de la boule blanche sur la 
table d'effacement 
3680 à 3780 

Sous-programme de la boule blanche lorsqu'elle tombe dans 
une blouse 
3790 à 3850 

Sous-programme de mémorisation de la position des boules 
numérotées 
3860 à 3930 

Sous-programme de vérification de la position des boules 
3940 à 4380 
Règles du jeu 
4390 à 4420 

Détermination du type de la règle 
4430 à 4470 
Détermination de la méthode de tir 



Les variables principales 



A 

Angle de tir 

AF 

Couleur de la queue définie au départ en fonction de la 

méthode de tir 

AN 

Ancien angle de tir 

ANBT 

Adresse de la boule de tir 

BT 

Nombre de boules tombées 

CO 

Côté des boules tombées 

D 

Effet 

DE 

Effet corrigé 

FL 

Flag mis à 1 si la boule de choc est tombée dans une blouse 

Flf 

Flag mis à 1 si une boule au moins est tombée à droite 

FL2 

Flag mis à 1 si une boule au moins est tombée à gauche 

FL3 

Flag mis à 1 s'il n'y a pas eu de mouvement de boule après 

le tir 



FO 

Force de tir 
FSP 

Flag d'affichage de la boule blanche en fonction de sa 
position 

h, 12 

Permet l'affichage de la détermination du joueur 

JOUEUR 

Numéro du joueur à jouer 

JOUEUR 1 

Score du joueur 1 

JOUEUR 2 

Score du joueur 2 

MAF 

Matrice contenant les angles de tir 

MPX, MPY 

Mémorisation de la position des boules avant le tir 

NB 

Numéro de la boule tombée 

NBC1 

Nombre de chocs sur la bande de la première boule 

numérotée 

NBC2 

Nombre de chocs sur la bande des autres boules numérotées 

NBTI 

Numéro de la boule de choc 

ouv 

Flag permettant de savoir si c'est le début de jeu dans le cas 
d'une partie avec les règles officielles 

Flaq mis à 1 si la boule blanche est tombée dans une blouse 

PE 

Point de pénalité 

PK 

Adresse de la boule de choc dans la table TCB 

POSX, POSY 

Position de la boule blanche lors de la mise en place sur la 

table 

RE 

Flag déterminant le type de règles choisi 

Matrice d'adresse des sprites 

SS 

Octet SS mis à jour dans la table TCB pour déplacement de 

la boule 

TBT 

Comptage du nombre de boules tombées au cours de la partie 

TOT 

Nombre de points par le comptage des boules numérotées 

au cours du coup 

TOTD 

Total des points à droite 

TOTG 

Total des points à qauche 

TT a 

Adresse dans la table GAU ou DRO du pointeur 

VX, VY 

Position en X et Y de la boule de choc 

XI, X2 

Mémorisation de la position de la queue avant déplacement 

X3,X4 

Position de la queue après déplacement 

XP, YP 

Position de la queue 

AFO$ 

Mode d'affichaqe qraphique normal 

AF1$ » « H H 

Mode d'affichage graphique XOR 
J 1 9 

Chaîne représentant le score du joueur 1 
Chaîne représentant le score du joueur 2 
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DIONYSOS 





Ce nom propre évo- 
que pour la multi- 
tude le vin. A vrai 
dire, Dionysos (ou Bacchus 
pour les Romains) était le 
dieu de la végétation, donc 
de la vigne en particulier. 
Ce logiciel vous propose de 
gérer l'immense cave que 
vous possédez comme tout 
Français digne de ce nom. 
Après le RUN "MENU" 
traditionnel, vous avez 
accès à deux options : la 
gestion de cave et la base 
de données sur les grands 
vins de France. 
Commençons par le plus 
urgent : mettre un peu d'or- 



dre dans vos trésors. Bien 
entendu, si vous ne possé- 
dez que du Bougnat vil- 
lage, bouteille en plastique 
cru 1987, ce logiciel ne 
vous sera pas d'une 
grande utilité. Chaque fiche 
comprend plusieurs rubri- 
ques : appellation, nom du 
cru, région, millésime, nom 
et adresse du négociant, 
date d'entrée, nombre de 
bouteilles, prix, observa- 
tions, reste en cave... 
Une option permet de lister 
tous les vins présents ou 
bien d'en choisir un particu- 
lièrement. Une petite envie 
de Jurançon sec ? Choisis- 



sez "sortir une bouteille" 
et indiquez le nombre de 
bouteilles nécessaire à 
étancher votre appétit. 
D'un seul coup d'œil, vous 
avez accès à un tableau 
contenant le millésime, le 
nombre de bouteilles (avec 
l'indication d'un stock insuf- 
fisant), le prix unitaire et 
actualisé. Une petite sauve- 
garde avant de passer à 
l'autre option principale : 
la base de données. Celle- 
ci contient à la fois une liste 
des crus et une liste des 
mets. 

La liste des mets est établie 
avec les noms de régions : 
Alsace, Bourgogne, Val de 
Loire, Provence, Corse, 
Sud-Ouest... Une fois la 
sélection effectuée, un 
autre choix doit être fait 
dans les vins. 
Exemple : en Champagne, 
on me propose trois vins : 
le Champagne, le Rosé des 
Riceys et le Coteaux cham- 
penois. Pour chaque vin, 
on nous précise l'appella- 
tion, les catégories (rouge, 
blanc, rosé), ainsi que le 
prix moyen schématisé par 
des bouteilles de 1 à 3. En 
choisissant "Rosé des 
Riceys", on accède à une 
feuille d'informations con- 
cernant la qualité des 



années (de médiocre à 
exceptionnelle), la tempé- 
rature supportée, le vieillis- 
sement moyen et les plats 
qui peuvent accompagner 
le vin. En appuyant sur une 
touche, vous apprendrez 
l'année d'appellation, la 
production moyenne, le 
cépage et le degré mini- 
mum. 

La liste des mets permet un 
choix en fonction d'un 
menu donné. Par exemple, 
pour la bouillabaisse, le 
logiciel nous a conseillé 
Bandol, Côtes de Pro- 
vence, Côtes d'Aix-en- 
Provence, Bellet, Cassis et 
Coteaux de Baux-de- 
Provence. Chacun restant 
libre de choisir selon ses 
préférences. 

Tous les choix et les dépla- 
cements utilisent les flèches 
du curseur, donc pas de 
problème de prise en main 
d'autant que les comman- 
des sont soulignées en bas 
de page. 

Des mises à jour régulières 
vous seront proposées afin 
de garder une certaine 
actualité dans votre cave. 
Le logiciel remplit (I) son 
office. Le seul reproche 
important peut être fait à la 
présentation qui est un peu 
sommaire. 
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2 boutiques spécialisées Amstrad 

PROFESSIONNELLE : 22, rue de Montreuil 94300 VINCENNES - (1) 43.28.00.71 

FAMILIALE : 20, rue de Montreuil 94300 VINCENNES ( 1 ) 43.28.22.06 
ouvert du mardi au vendredi 10 h 30-13 h et 15 h 19 h le samedi 10 h 30-19 h 




Produits DART 
STYLO OPTIQUE: De loin le meilleur de tous, le stylo optique 
DART à fibre optique vous permettra de réaliser de véritables chef 
d'œuvres. Fourni avec logiciel d'exploitation très complet. 

□ stylo optique (disquette) 495 F 

□ stylo optique (cassette) 445 F 

SCANNER GRAPHIQUE: Ce scanner, très simple d'utilisation, vous 
permettra de digitalier toute image sur support papier, à partir 
de la OMP 2000. Fourni avec un logiciel d'exploitation très puissant. 
Qscannergraphique"DART" 790 F 




Grâce à cet interface te moniteur de votre Amstrad CPC vous 

servira aussi de TV. 

DinterfaceT.V JAOTT/ 1 1 90 F 

□ interface T.V. avec télécommande 1690F 

Ddisq.3" 31F 

Ddisq.3" (par 10) 275 F 

Ddisq. 5"1/4 (par 10) 90 F 

□ cassettes vierges (par 10) 80 F 





cadeau 
1 joystick 
4 logiciels 




CPC 6128 couleur + imprimante 

4495 F 

□ CPC 464 monochrome 1990F 

D CPC 464 couleur 2990F 

□ CPC 61 28 monochrome 2990 F 

D imprimante DMP 21 60 1 690 F 

□ interface RS232 pour CPC 590F 

□ sourisparCPC 690F 

□ interface RS232/centronic PCW 690F 

D 2e lect. disq. CPC 1590 F 

□ 2e lect. disq. PCW 1990 F 

□ scanner PCW 895 F 

□ magnétophone CPC (avec câble) 340 F 

□ câblemagnétophoneCPC 50F 

□ digitaliseur PCW 1 390 F 

□tablette grafpad PCW 1850F 

□tablette grafpade PC 2495 F 

□joystick PRO 5000 * 170 F 



DIGITALISEUR ARA 

Ce digitaliseur vous permettra non seulement de digitaliser des 
images vidéo provenant d'une caméra mais aussi des images 
provenant directement de votre T.V. Un logiciel très complet vous 
permettra d'embellir, retoucher, stocker... les images digitalisées. 
Entièrement français 

D digitaliseur ARA CPC 990 F 

□ digitaliseur ARA PC 2335 F 



Câble imprimante AMSTRAD 

Vous permet de connecter votre AMSTRAD à n'importe quelle im- 
primante au standard "centronic". 

□ câble imprimante CPC 150 F 

n câble imprimante PC 195F 

Rallonge alimentation + vidéo 

□ ne soyez plus collé à l'écran, rallonge 464 130F 

□ ne soyez plus collé à l'écran, rallonge 6128 1 80 F 

D housse pour moniteur + clavier (préciser coul. ou monoc.) 175F 

DrubanimprimanteDMPI|par2| 198F 

DrubanimprimanteDMP2000 99F 

□ adaptateur periteltous CPC 490 F 



"Il ne lui manque que la paroi 
Très performant ce synthétiseur 
votre ordinateur plus bavard qu'ur 

3 synthétiseur vocal 

□ 7 logiciels vocaux sur disquette 



le ^s^ml^UTCTTàTùi donne! 
cal va vous permettre de rendre 

Plfpl^P'li»! 



550F 
195F 



PC 1640 la gamme complète 

□ PC 1640 SD monochrome... 6510 F n - .* 

□ PC 1 640 SD couleur 9999 F 

□ PC 1 640 DD monochrome .. 7690 F 

□ PC 1640 DD couleur 11250 F 

□ PC 1 640 HD 20 monochrome 1 1 250 F 

□ PC 1 640 HD 20 couleur... 1 4800 F _ 



3 D grand prix □ 1 1 F 

3 D stunt rider □ 1 00 F 

7 logiciels vocaux — □ 1 95 F 
découverte de la vie . . 
découv. homme se. nat. 

airwolfll D1 15F 

album ubi D199F 

algèbre 4e 3e □ 1 65 F 

anales de rome □ 1 95 F 

apprends mois écrire . . 

apprends moi lire 

astérix chez rahazade . 
autoform. à l'assem. . . □ 1 95 F 
balad. outre rhin 6e/5e □ 1 80 F 
b. pays Big Ben 6e/5e □ 1 80 F 

barbarian □ 1 00 F 

bataille pour R.F.A. ... □ 195 F 

big 4 D1 25 F 

billy II D140F 

blueberry et le spectre 

bob morane chevalerie D255F 

bob morane jungle D 255 F 

bob morane scien. fie. . D255 F 

bobsleigh 

boulder dash const. kit G 125 F 

bource 2000 

bridge D270F 

bubbleghost D145F 

budget familial D 1 60 F 

calcumat 

california games D120F 

carte d'europe 01 50 F 



D145F carte de france D150F D165F 

D145F cholo D156F D185F 

□ 195F colossus chess 4 D110F D175F 

D 1 95 F combat school □ 1 55 F 

D 1 95 F conjuguer cp/cm D 285 F 

□ 155F crazycar D135F D185F 

D255F d.a.m.s D295F D395F 

D220F dakar4x4 D195F 

D255F damescanner D140F D180F 

D199F datamat D390F 

□ 260F Dbasell D790F 

D 1 99 F des chiffres et lettres . □ 1 95 F D280F 

D295F dida. engli. orth. gram. D255F 

□ 225F e.x.i.t D210F 

D225F écrire sans faute D210F 

D1 45 F enduro racer D105F 0155F 

□ 255F équation inéquation ... D220F 

□ 1 60 F fi 5 strike eagle □ 1 1 5 F □ 1 65 F 

□ 199F fighterpilot □ 1 05 F D150F 

□ 199F floopy (magazine) .... □ 41 F □ 75F 

□ 255 F foot D1 60 F D1 80 F 

□ 255F français™ D180F O220F 

□ 255F games set et match... □ 145 F □ 1 90 F 

□ 170F golden hits □ 1 05 F m 55 F 

□ 170F gram. lang. franc D210F 

□ 450 F grand prix 500 □ 1 80 F 

□ 299 F heartland □ 1 00 F □ 1 55 F 

□ 190F hercule II D395F 

□ 1 99 F ra. 2 + 3D fight + inf. □ 1 60 F □ 1 99 F 

□ 390F foot + tennis + 5e axe ni 60 F □ 1 99 F 

□ 1 55 F tony + aigle + empire □ 1 60 F □ 1 95 F 

□ 220 F budg. + lorig. + space □ 1 60 F □ 1 99 F 



— LOGICIELS CPC — 

C D 

bit pack D100F D145F 

hit pack II {6 logicl . . . □ 1 05 F D145F 

hit pack III D1 16 F □ 1 55 F 

mgt + maraca. + billy □ 1 55 F □ 1 95 F 
imagine's arcade hits . □ 1 25 F □ 1 55 F 

impression D200F D240F 

invitation ni40F □ 199 F 

k.y.a D140F □ 199 F 

kentel 2 IZI685F 

l'aigle d'or □ 1 00 F D150F 

l'ange de cristal □ 145 F □ 1 99 F 

l'anneau de zengara . □235 F 

la chose de grotemburg L J 190F 

la cuisine française .. . □215 F 

la mascotte luky luke . D175F 

la solution D790F 

les dieux de la mer ...□ 1 30 F □ 1 95 F 
fortunes du football . . □ 1 95 F □ 245 F 
meilleurs au monde . . . □ 1 25 F □ 1 95 F 
les passagers du vent . □290F 

les ripoux D1 20 F Q1 99 F 

trésors d'U.S. gold . . . . □ 1 1 F □ 1 75 F 
les voleurs du temps.. D250F 

loto □ 1 55 F D1 95 F 

loto sportif D220F 

m. a. base ni 65 F 

mach 3 D145F D199F 

mastercalc (6128) ... Q300F 

masterfile (6128) ... D360F 

maths 3 (algb. 3e) ... . □ 1 70 F □ 1 99 F 
maths 4 (algb. 4e) .... D170F 
maths 5 (algb. 5e) ... . □ 1 70 F 



maths 5-4 (alg. 5-4e) D220F 

maths 6 (algb. 6e) . . . . □ 1 70 F □ 200 F 

maths cm D220F D260F 

maths second cycle .. . □ 1 95 F Q235F 

mentel Q545F 

méphisto D175F O205F 

mercenary □ 1 1 5 F □ 1 99 F 

micro scrabble Q220F D265F 

mission delta □ 1 30 F □ 1 85 F 

missions en rafale .... O 1 55 F □ 1 99 F 

monopoly D199F Q245F 

multiplan D499F 

music pro D295F D350F 

nitrogfycér. lucky luke C1 1 85 F 

ordidactic D250F 

out run □ 1 1 5 F D145F 

oxphar D250F 

pegasus bridge (fr.) . . . □ 1 95 F Q385 F 

pBntel D1385F 

play bac Q230F 

power play □ 1 20 F □ 1 65 F 

primer pack 2 D145F □ 1 85 F 

profession détective .. □260 F 

quin D250F 

red l.e.d □ 1 1 5 F m 65 F 

relief action : . □ 1 60 F □ 1 99 F 

roadrunner □ 1 05 F O 1 55 F 

robinson crusoé □ 1 85 F 

rygar D120F □ 1 45 F 

sac à dos D295F D295F 

sapiens D140F □ 1 80 F 

sémabank D330F 



silent service D 1 1 F □ 1 60 F 

sorcererlord □ 1 95 F 0255F 

space moving □295F Q395F 

sram 2 Q220F 

strangeloop □ 1 1 F □ 1 55 F 

super pac (pacman) .. □105F □150F 

super ski D150F D195F 

superpaint □250F 

tai pan □ 1 05 F dl 55F 

tascopy D190F D230F 

tasprint □230F 

tasword (464-664) .. D360F 

tasword (464). D260F 

tasword-mail. (6128) . . J 3 6 F 

tetris □ 1 10F □ 1 60 F 

textomat D390F 

thai boxing □ 1 00 F □ 1 50 F 

the eidolon □ 1 05 F ni 50 F 

the eye □ 1 20 F □ 1 80 F 

they sold a million 1 . . □ 1 05 F □ 1 50 F 
they sold a million 2 . . □ 1 05 F □ 1 45 F 
they sold a million 3 . . □ 1 05 F □ 1 45 F 

translock II plus D275F 

transmat D150F D195F 

trivial poursuite D325F 

trivial poursuite junior D225F D240F 

turlogh le rôdeur □ 260 F □ 260 F 

uchi mata □ 1 1 5 F Q145F 

valeur plus 1.2 L1365F 

vectoria 3 D D410F 

viewtext □ 135 F 

zombi D130F □ 1 90 F 



LIVRES 



D 1 02 pro./amastrad epe ,135F 

□ amstrad explore 108 F 

Damstrad ouvre-toi 99 F 



□ débuteraveccpc6128 .. 99F 
D clefs pour amstrad T1 ...140 F 
D clefs pour amstrad T2 ...155 F 



Ocp/m + amstrad cpc.pcw 100F 
D graphismes sons du cpc 129 F 
D je débute basic amstrad 96 F 



G bible du programmeur epe 249 F 
D la découverte de l'amstrad 115 F 
D basic bout des doigts epe 1 49 F 



Die livre de l'amstrad 120 F 

CD le livre lecteur disq. epe ..149F 
Die tour de l'amstrad cpc. . . 96 F 



D routines de l'amstrad cpc 1 49 F 

D logo sur cpc 149 F 

nmultiplansuramstrad ...207F 



COMMENT COMMANDER :Cocher le(s) article(s) désiré(s) ou faites une liste sur feuille à part - Faites le total + frais de port (20 F pour achats inférieurs à 500 F. 40 F de 500 à 1000 F, 60 F de 1000 F à 2000 F. 80 F pour achat supérieur à 2000 F) 
NOM ORDINATEUR: D PC 1512 G 6128 coul. G 6128 mono. D 464 coul. G 464 mono. G 8256 G 8512 



ADRESSE . 



TEL. 



CODE POSTAL. 



VILLE. 



Mode de paiement : D chèque / D mandat / D contre-remboursement (prévoir 20 F de frais) - envoyer le tout à : ORDIVIDUEL, 20,rue de Montreuil 94300 VINCENNES. 



n 



BA/VC P'ZSSA 



UT/L/TA/RZ 




Voici un utilitaire de gestion de dis- 
ques qui possède une présenta- 
tion très soignée et qui rappelle 
le style Macintosh. Un panneau de contrôle 
vous permet de modifier la vitesse de ré- 
ponse des touches, la couleur de l'en- 
cre et du papier ainsi que la suppres- 
sion du bip. Les commandes sont 
accessibles par l'intermédiaire des 
icônes placées sur le côté droit de 
l'écran ou bien grâce à la barre du 
menu supérieure. Toutes les fonc- 
tions ne sont pas intégrées dans le 
programme principal. Prenons par 
exemple la copie de disques. Une fois 
l'option choisie, vous sortez du pro- 
gramme Max pour effectuer la copie 
puis vous êtes obligés de faire un 
reset pour retourner au programme 
principal : que de temps perdu ! 
Le directory de chaque disquette s'af- 
fiche à l'aide d'icônes dans une fenê- 
tre. Chaque fichier est représenté par 
un symbole : une pomme (ben 
voyons !) pour les fichiers binaires, 
un pot d'encre et un pinceau pour 
les images, un listing pour les pro- 
grammes BASIC. Max reconnaît en 




fait les suffixes différents et parti- 
culièrement ceux employés par les 
logiciels AMS (Stop Press, AMX Art, 
3D Ziccon). L'option hard copy signa- 
lée par un petit dessin d'imprimante 
permet d'obtenir les informations sur 
un support papier. 



A noter également : un formateur 
proposant les options DATA ou 
SYSTEM avec une éventuelle vérifi- 
cation des données, un copieur de 
disquettes au format standard, un 
éditeur de secteur classique et un 
accélérateur de vitesse concernant 
le moteur du lecteur de disque. 




O 






gS&s^ a ~* 



La gestion des fichiers permet de 
cocher des programmes au catalo- 
gue, de déprotéger les fichiers BASIC 
(option "P"). Bien sûr, on peut aussi 
renoncer et effacer des fichiers. La 
poubelle est un outil intéressant 
puisqu'elle vous autorise à "jeter" un 
fichier et même à récupérer ce der- 
nier en cas de regret. Mais attention, 
après un "empty trash" ou "poubelle 
vide", il n'y a plus de recours possi- 
ble. 

Comme avec les "vrais" (GEM par 
exemple), on peut sauver les carac- 
téristiques du programme : vitesse 
de réponse des touches, couleurs. 
Cela évite d'avoir à entrer tous les 
paramètres lors d'une initialisation. 
Max porte un nom bien sympathique 
mais, malgré sa présentation très soi- 
gnée, ce n'est pas un programme 
intégré dans la mémoire de l'Ams- 
trad, il est donc un peu lourd à 
manier si vous désirez par exemple 
changer les noms de trois ou quatre 
fichiers. Pour vous procurer ce pro- 
gramme, la seule solution (pour l'ins- 
tant) consiste à écrire en Angleterre 
à : Advanced Memory Systems LTD 
- 166-170 Wilderspool Causeway - 
Warrington WA4 6QA. 
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COURRIER 
DES LECTEURS 



S.O.S. P.A. C.P.C. 

Jean-Louis Guilbert, 62 St-Laurent- 
Blangy nous fait pari de sa joie d'avoir 
pu résoudre des problèmes de liaison 
CPCIMinitel grâce à la réponse à un SOS 
qu'il avait lancé dans les petites annon- 
ces de votre revue préférée. 

MVous partageons la joie de ce 
■■lecteur et ne saurions trop 
inciter les autres lecteurs à l'imiter. 
Notamment pour les problèmes épi- 
neux d'imprimante (photocopie du 
mode d'emploi, paramétrage, etc.), 
ou d'autre matériel, ou encore pour 
certains programmes du commerce. Il 
est en effet bien rare qu'un autre lec- 
teur n'ait pas eu, à un moment ou un 
autre, le même problème, et l'ait 
résolu. Et vous êtes mieux placés que 
nous pour savoir que nos lecteurs sont 
formidables (si, si !) et qu'il se feront 
un plaisir de vous communiquer leur 
expérience. 



CLUBS 

De très nombreux lecteurs nous 
demandent l'adresse d'un 
club dans leur région. Malheureuse- 
ment, notre fichier des clubs d'infor- 
matique utilisant des Amstrad CPC 
n'est pas à jour. Aussi lançons-nous 
un appel à tous les clubs de France, 
de Navarre, de Belgique, de Suisse et 
des pays étrangers dans lesquels nous 
avons des lecteurs. Envoyez-nous vos 
coordonnées exactes. Si un change- 
ment d'adresse doit intervenir, 
signalez-le. Merci ! 




5, 6, 7 ET 8 

Cyril de Coatpont, 7150 Le Chesnay se 
trouva bien ennuyé lorsqu'il constata que 
le numéro 5 de CPC était épuisé, alors 
même qu'il voulait utiliser le programme 
de HARDCOPY de CPC n* 19 qui ne 
peut fonctionner sans de précieuses RSX 
de CPC n° 5. 

Ce lecteur n'est pas le seul à 
réclamer haut et fort une réé- 
dition des premiers numéros de la 
revue. La réédition des numéros 1 à 
4 est déjà disponible et nous conti- 
nuons dans le même esprit. Vous 
pourrez ainsi découvrir, entre autres 
choses, les premières initiations à l'as- 
sembleur, un traceur de graphiques, 
une gestion de discothèque, une table 
de références croisées, de nombreux 
jeux, et les très recherchés articles de 
Michel Archambault. 



CAO 464 

Philippe Maurice, 33000 Bordeaux 
déplore, possédant un CPC 464, de ne 
pouvoir utiliser le génial programme 
"Long Size" de CAO. 

MMotre cher lecteur peut retrou- 
- MWver son sourire, il existe une 
version de CAO pour 464. Les lecteurs 
un peu curieux auront pu lire en encart 
dans le texte du programme une 
remarque qui donne tous les rensei- 
gnements nécessaires pour se procurer 
le super-programme de Jean-Pierre 
Petit. 




CHAMPIONNAT 

Marc Himbut, 75002 Paris a un pro- 
blème avec la sauvegarde de ses don- 
nées dans l'utilisation du programme 
CHAMPIONNAT. 

£e problème vient des 6128, et 
il suffit de créer le fichier 1987 
soi-même. A la main, en quelque 
sorte. La syntaxe est simple et ne pose 
pas de problème. 
OPENOUT "1987":PR1NT " ": 
CLOSEOUT 

Et le tour est joué. Profitez de la trêve 
de Noël pour mettre de l'ordre dans 
les résultats. 
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STRADAMUSE 

Cécile Mafye, 3 1 000 Toulouse, aimerait 
utiliser STRADAMUSE, programme de 
composition musicale, mais ne parvient 
pas à obtenir les altérations 

Pour "diéser" correctement, il 
suffit d'entrer dans le même 
mouvement la note et son signe d'al- 
tération. Ne tentez donc pas d'opérer 
au coup par coup, le programme 
accepterait la note seule. 
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PASCAL OU LA LIBERTE DE 
FAIRE CE QUE L'ON VEUT 
COMME ON VEUT, OU ON VEUT 



Yves GERAULT 



6 e PARTIE 



^^y ous avons bien progressé 
1^1 dans l'étude du PASCAL 

TURBO. Nous pouvons 
maintenant écrire des 
programmes conséquents qui 
tournent vraiment. La lecture de 
nos programmes fait cependant 
apparaître assez fréquemment 
les mêmes enchaînements 
d'instructions, comme s'il 
s'agissait de refrains dans une 
chanson. N'y a-t-il pas une 
manière d'agir afin de n'écrire 
qu'une fois chacun de ces 
refrains ? 



Introduction aux procédures 




Avec la complexité des problèmes à résoudre les textes 
sources s'allongent et il est difficile de voir notre problème 
dans son ensemble. Il serait intéressant de construire une 
table des matières de notre programme, en n'écrivant que 
les titres. Pour plus de détails il suffirait d'aller lire le cha- 
pitre en question. 

Comme nous l'avons signalé dans le préambule, nous 
observons aussi des répétitions de blocs dans notre texte 
source. Nous pouvons considérer que ces blocs définis- 
sent des outils propres à notre problème. Il iras- 
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ra n r < 






PROGRAM proc_1 (input, output) ; 



BLOC DECLARATIF 



BEGIN (* début du programme principal *) 



BLOC INSTRUCTION 1 



BLOC INSTRUCTION 2 



BLOC INSTRUCTION 3 



END - (* fin du programme principal *) 



H Découpage d'un programme 



Pascal en BLOCS SEQUENTIELS. 



•ES PROCEDURES SIMPLES 



kES PROCEDURES FORWARD 

Il est cependant des cas, très rares il est vrai, où il n'est 
pas possible de résoudre le problème de la déclaration 
préalable à son utilisation. BORLAND a prévu aussi ce 
cas. Il suffit de fournir au compilateur l'en-tête complet de 
la procédure et de le prévenir que le bloc instruction cor- 
respondant viendra plus tard (FORWARD en anglais). Le 
tableau 3 montre l'utilisation de ce type de déclaration. 
On pourrait admettre que le compilateur fait deux fois le 
même travail, en fait, il n'en est rien. Nous y reviendrons 
dans le cas de procédure plus sophistiquée. 



u 



TILISATION DE PROCEDURE SIMPLE 



Le listing 1 vous donne une utilisation de ce type de pro- 
cédure. Il s'agit de faire disparaître ou de faire réappa- 
raître le curseur sur l'écran. Ceci est particulièrement inté- 
ressant lorsqu'on utilise intensément les GOTOXY pour 
afficher des valeurs à des endroits précis de l'écran, il est 
alors gênant de voir le curseur balayer sans cesse l'écran. 




Le tableau 1 nous montre un programme découpé en plu- 
sieurs blocs. Notre bloc instruction, encadré par ses ordres 
traditionnels < BEGIN > < END >, se trouve subdivisé en 
divers petits sous-blocs appelés <BLOC 1 > <BLOC 2> 
<BLOC 3>. Le tableau 2 montre ce même programme 
modifié par l'utilisation d'un nouveau BLOC DECLARA- 
TIF : le BLOC PROCEDURE. Nous avons remplacé le bloc 
1 par un identificateur <BLOC 1 > et nous avons prévenu 
le compilateur que cet identificateur < BLOC 1 > repré- 
sentait un bloc d'instruction dont le détail se trouve dans 
la partie déclarative. 

Voyons maintenant notre partie déclarative. Là non plus, 
il n'y a rien de compliqué. Nous avons tout simplement 
ouvert un nouveau bloc par le mot-clé < PROCEDURE > 
suivi de l'identificateur de notre procédure <BLOC 1 > 
suivi de l'immuable point-virgule pour signaler la fin de 
notre ligne PASCAL. Nous écrivons ensuite notre bloc 
d'instruction que nous encadrons par les instructions début 
de bloc et fin de bloc < BEGIN > et <END>. Comme 
la majorité des sous-blocs de la partie déclarative, le sous- 
bloc PROCEDURE n'a pas d'instruction de clôture autre 
que ce <END> suivi du traditionnel point-virgule. 
ATTENTION il s'agit de la fin d'un bloc que l'on met là 
pour des raisons pratiques et non de la fin du programme ; 
il ne faut surtout pas mettre de POINT final puisque jus- 
tement ce n'est pas la fin. 

L'utilisation des procédures simples ressemble beaucoup 
à celle du BASIC. Elle en diffère cependant pas des points 
importants à signaler. 

Tout d'abord un plus grand confort apporté par la sup- 
pression des numéros de ligne. Il est plus simple d'écrire 
cBLOC 1 > plutôt que <GOSUB 1 120>. Ce numéro 
fiment la plaie du BASIC. Pour être honnête, il faut 
ifé des BASIC moderne 






PROGRAM proc_2 (input, output) ; 



BLOC DECLARATIF 



PROCEDURE BLOCJ ; 
BEGIN 



BLOC INSTRUCTION 1 



END; 

PROCEDURE BLOC_2 ; 
BEGIN 



BLOC INSTRUCTION 2 



END; 

PROCEDURE BLOC_3 ; 
BEGIN 



BLOC INSTRUCTION 3 



END; 

BEGIN (* début du programme principal 

BLOC_1 ; 

BLOC_2 ; 

BLOC_3 ; 
END - (* fin du programme principal *) 
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ARIABLES GLOBALES 
ET VARIABLES LOCALES 

Le problème majeur rencontré lorsque les programmes 
s'allongent est le risque d'utiliser un identificateur pour 
deux choses différentes. Le problème devient assez com- 
plexe, voire inextricable, pour les gens qui utilisent cou- 
ramment des identificateurs peu explicites du genre 
a,b,c,ro,ter etc. Lorsqu'on utilise des sous-programmes le 
problème se complique de l'utilisation de ce sous- 
programme à divers points du programme dans des con- 
ditions pas toujours identiques. Les erreurs qui en décou- 
lent portent le nom D'EFFET DE BORD. 
PASCAL permet de s'affranchir d'une manière élégante 
de ce problème. C'est le programmeur qui décide si les 
variables utilisées dans une procédure s'appliquent à 
TOUT LE PROGRAMME ou si celles-ci sont STRICTE- 
MENT RESERVEES A LA PROCEDURE. Pour cela il fait 
la différence entre les variables GLOBALES et les varia- 
bles LOCALES à une procédure. Il fait de plus la diffé- 
rence entre les variables LOCALES de CHAQUE 
procédure. 





PROGRAM proc_3 (input, output) ; 


•M ^1 




BLOC DECLARATIF 








PROCEDURE spécial ; 
FORWARD ; 




(* on prévient que spécial sera *) 
(* détaillée plus loin *) 




PROCEDURE proc a ; 
BEGIN 




spécial ; (* appel de spécial *) 
(* sans l'instruction FORWARD*) 






(* il y aurait une erreur *) 






END; 

i 












PROCEDURE proc b; 






BEGIN 






END; 


c 






^ — 




PROCEDURE spécial ; 

(* ici on place le détail *) 
(* des instructions *) 


a> 
■o 

c 
o 




BEGIN 


o 

M 

■S 




proc_b ; 

END; 


b 

a. . 

ûû 
ça 

or 
O 

u. 

c 




BEGIN (* début du programme principal *) 

proc_b ; 
spécial ; 


proc_a ; 


u 


END. (* fin du programme principal *) L 


k_ 



PROGRAM proc_4 (input, output) ; 

(* partie déclarative *) 
PROCEDURE essai ( valeurjl : Integer ; 
valeur_2 : char ) ; 

BEGIN 

(* bloc instruction *) 

END; 
(* fin de essai *) 

PROCEDURE appelante ; 

VAR 

donnée_1 : Integer ; 
donnée_2 : char ; 

BEGIN 

essai (donnée_1 , donnée_2) ; 

essai (1 23, 'B'); 

END; 
(* fin de la procédure appelante *) 

BEGIN (* programme principal *) 



END. (* fin du programme *) 
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ES VARIABLES LOCALES 
A UNE PROCEDURE 



Jusque là, nous parlions de variables qui sont représen- 
tées par un identificateur déclaré dans la partie déclara- 
tive du programme : CE SONT LES VARIABLES GLO- 
BALES. Elles sont créées lors de la compilation du pro- 
gramme et prennent leur place dans l'occupation de l'es- 
pace mémoire de façon permanente durant la globalité 
du temps d'occupation de l'ordinateur par le programme 
les ayant créées. Elles peuvent être appelées delà tota- 
lité au programme, y compris des procédures si le pro- 
grammeur en décide ainsi. 

Par opposition à ces dernières, il est possible de créer des 
variables locales à une procédure. Elles ne seront pas sto- 
ckées au même endroit dans l'ordinateur. Elles seront du 
type éphémère. ELLES N'EXISTERONT QUE LE TEMPS 
PENDANT LEQUEL LA PROCEDURE SERA ACTIVE. 
LORSQUE LE PROGRAMME QUITTERA LA PROCE- 
DURE PAR SON <END> ELLES SERONT DETRUITES. 
On en voit immédiatement les avantages : elles ne pren- 
nent pas de place en mémoire lorsqu'elles ne servent pas, 
de plus, après leur utilisation, l'espace mémoire qu'elles 
ont temporairement occupé est restitué au système. 

L'endroit où sont stockées ces variables locales se nomme 
la PILE de calcul. Cette pile sert à beaucoup de choses, 
c'est la feuille de brouillon dont se sert le microprocesseur 
pour faire ses calculs temporaires et noter ce dont il doit 
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se souvenir quand, pour diverses raisons il lui est néces- 
saire d'interrompre un travail en cours pour en faire un 
autre plus urgent. Lorsqu'il a terminé cette urgence il con- 
sulte son agenda (sa pile) pour savoir où il en était et 
reprendre le travail où il l'avait laissé. 
Le nom de pile vient du fait qu'il met ses informations les 
unes sur les autres comme une pile d'assiettes. Bien sûr 
pour avoir accès à une information il doit au préalable 
dépiler celles qui sont dessus. La gestion de cette pile est 
effectuée par le compilateur et n'est pas, comme en assem- 
bleur, du ressort du programmeur. OUF III Mais que les 
puristes se rassurent, PASCAL leur permet aussi d'aller 
jouer avec la pile, à eux de ne pas être des APPRENTIS 
SORCIERS, sinon, il ne leur restera plus que le maniement 
du bouton marche/arrêt comme solution. 
Comment prévient-on le compilateur que l'on désire créer 
une variable locale ? De façon très logique. Il suffit d'in- 
tercaler entre la déclaration de procédure et le 
< BEGIN > qui indique le début du bloc d'instruction une 
partie déclarative en tout point semblable au bloc décla- 
ratif des variables globales. Le listing 2 donne un exem- 
ple d'utilisation de variables locales. Pour bien montrer 
que les variables locales et globales sont totalement dif- 
férentes, nous leur avons donné le même identificateur. 
Comment le compilateur sait-il qu'il doit se servir de la 
variable locale plutôt que de la variable globale ? ; par 
la définition de la priorité en cas de conflit. Lorsqu'il ren- 
contre le nom d'un identificateur, il cherche d'abord si 
celui-ci est local à la procédure, si oui c'est cette défini- 
tion qu'il prend, sinon il le considère comme global. 



ES PROCEDURES IMBRIQUEES 

Nous avons vu que la déclaration des variables locales 
se faisait dans la partie déclarative de cette procédure. 
Rien ne nous empêche dans la partie déclarative de la pro- 
cédure A de déclarer une procédure B qui elle-même aura 
dans sa partie déclarative une procédure locale C et ainsi 
de suite. Le problème posé devient : QUI EST LOCAL 
POUR QUI f?? 

PASCAL est un langage hiérarchisé. Il va donc repren- 
dre la même définition que pour le règlement du conflit 
du chapitre précédent. Lorsqu'il rencontre un identifica- 
teur inconnu lors de sa compilation, il cherche d'abord si 
celui-ci est local, si oui c'est cette définition qu'il retient, 
sinon, il remonte sa pile et cherche au niveau de la pro- 
cédure appelante et se repose la même question : l'iden- 
tificateur est-il local à cette procédure ? Si oui, il accepte 
cette définition, sinon il remonte sa pile au niveau de la 
procédure appelante et ainsi de suite jusqu'à ce que sa 
référence soit vérifiée. Il se peut ainsi qu'il remonte 
jusqu'aux variables globales. Du fait même du fonction- 
nement en pile des variables locales, il ne peut jamais, 
POUR PASCAL, y avoir de conflit. Pour le programmeur 
cela est moins évident. 

POUR EVITER TOUT PROBLEME, NOUS POUVONS 
PRENDRE COMME DEFINITION, DE NE JAMAIS 
MODIFIER DE VARIABLES GLOBALES DANS UNE 
PROCEDURE, SAUF CAS EXCEPTIONNEL, ET, APRES 
MURE.. REFLEXION.. 



ASSAGE DE PARAMETRE 
A LA PROCEDURE 

Nous avons reproché au BASIC d'avoir des sous- 
programmes qui n'étaient pas indépendants vis-à-vis du 
programme principal, Pascal fait-il mieux en la matière, 
et si oui, comment s'y prend-il ?. Pascal résout effective- 
ment ce problème de façon très élégante grâce à une 



astuce de compilation liée à la manière dont il passe ses 

paramètres du programme appelant à la procédure 

appelée. 

Nous allons essayer d'être particulièrement explicites pour 

cette explication car c'est là, la seule difficulté d'utilisa- 



tion des procédures en PASCAL. 
Supposons, comme le montre le ta 
lions passer à la procédure < ESSAI: 



Supposons, comme le montre le tableau 4, que nous vou- 

1> le 
suivantes 



les variables 



blc 



< donnée 1 > qui est du type integer. 

< donnée 2> qui est du type char. 

Le programme appelant va contenir l'instruction : 
essai (donnée 1, donnée 2) ; 
la procédure doit contenir l'en-tête : 
Procédure essai (valeur 1 : integer; valeur 2 : char); 
Nous voyons QU'IL N'Y A PAS CONCORDANCE 
ENTRE LES NOMS DES VARIABLES A TRANSMETTRE 
ET LES NOMS DES VARIABLES QUI SONT CENSEES 
LES ACCUEILLIR. Par contre il y a concordance de NOM- 
BRE de paramètres à transmettre et concordance de TYPE 
entre ce qui est transmis et ce qui reçoit. Il y a donc con- 
cordance de forme. C'est pourquoi ces paramètres seront 
désignés sous le vocable : PARAMETRES FORMELS (de 
forme). 

Lors de la compilation, PASCAL saura à la lecture de l'en- 
tête de la procédure < essai > qu'il lui faut deux valeurs 
qui doivent être, dans l'ordre, un < integer > et un 
<char> . C'est cette vérification qu'il effectuera. Lors de 
l'exécution, il AFFECTERA à la variable locale valeur 1 , 
u'il créera dans sa pile de travail, la valeur contenue 
ans la variable donnée 1 et idem pour valeur 2 et don- 
née 2. Puis il effectuera les calculs de la procédure. 
Supposons que nous ayons mis les mêmes noms pour les 
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1 


aller et retour 
procédure. 


PROGRAM proc_5 (input, output) : 
(* partie déclarative *) 


PROCEDURE essai (valeur_1 : integer ; 
valeur_2 : char ; 


c qj 

o _ 

si 


VAR retour : integer ) 
BEGIN 


H Communi 
amme appe 


(* bloc instruction *) 


END; 


en 
o 


(* fin de essai *) 


O- 

£ 


PROCEDURE appelante ; 
VAR 


c 
J <I> 


réponse, donnée_1 : integer ; 
donnée_2 : char ; 




BEGIN 




essai (donnée_1 , donnée_2. réponse) ; 


essai (123, 'B', réponse) ; 




END; 




(* fin de la procédure appelante *) 




BEGIN (* programme principal *) 




END. (* fin du programme *) 





variables à transmettre et pour les variables de réception. 
Cela change-t-il quelque chose ? Si vous avez bien suivi 
ce qui précède, vous devez pouvoir répondre "NON" 
sans aucune hésitation. 

Reprenons quand même pour ceux qui sont les moins 
aguerris au maniement des cases mémoires. Dans son 
espace programme le compilateur a créé deux emplace- 
ments à titre permanent de longueur 16 bits pour I entier 
donnée 1 et de longueur 8 bits pour le caractère donnée 
2. Durant le déroulement du programme ces variables se 
sont vues affecter des valeurs numériques diverses. Lors 
de l'appel de la procédure, il a été créé dans la pile de 
travail deux emplacements mémoire de longueur 16 bits 
et 8 bits. Les mémoires réservées au programme et les 
mémoires réservées à la pile de travail du microproces- 
seur ne sont évidemment pas les mêmes. Le compilateur 
a demandé au microprocesseur de recopier dans les 
mémoires de la pile les valeurs qui étaient mémorisées 
dans l'espace utilisateur. Désormais, dans le cadre de la 
procédure il peut arriver beaucoup de choses diverses aux 
variables de la pile donnée 1 et donnée 2 ; cela ne pourra 
avoir aucune incidence sur le contenu des variables don- 
née 1 et donnée 2 de l'espace programme. 
Le tableau 3 donne aussi un autre type d'appel de cette 
même procédure. Il est aussi correct puisqu'il est possible 
d'affecter la valeur 123 à la variable formelle valeur 1 
créée dans la pile de travail et de même pour "B" pour 
la variable formelle valeur 2. 



En passant nous avons résolu, sans le dire, un autre pro- 
blème : celui du passage de la valeur d'une variable glo- 
bale à une procédure dans laquelle se trouvait une varia- 
ble locale ayant le même identificateur. Ce problème, sans 
l'existence des paramètres formels, aurait été insoluble. 



IVETOUR de valeurs 

EN PROVENANCE DE LA PROCEDURE 

Nous avons énoncé comme principe que nous ne devions 
pas changer la valeur d'une variable globale dans une 
procédure sauf dans des cas très précis et après mure 
réflexion. Il doit, de ce fait, exister une autre manière plus 
académique de procéder. Elle passe, elle aussi, par les 
paramètres formels. Elle est un peu plus compliquée à com- 
prendre dans son fonctionnement interne mais aussi sim- 
ple d'utilisation. 

Un exemple en est donné au tableau 5. Il reprend le même 
problème que précédemment en y ajoutant en plus la pos- 
sibilité d'un retour de valeur de la procédure appelée vers 
le programme appelant. 

Le programme appelant envoie à la procédure < ESSAI > 
les valeurs : < donnée 1 >, < donnée 2> et attend en 
retour la valeur < réponse >. L'instruction d'appel est 
donc : 

ESSAI (donnée 1, donnée 2, réponse); 
La procédure appelée reçoit en entrée les paramètres for- 
mels : < valeur 1 >,< valeur 2 > et doit renvoyer au pro- 
gramme appelant une valeur par l'intermédiaire du para- 
mètre formel < retour >. L'en-tête de la procédure essai 
est donc : 

Procédure ESSAI (valeur 1 : integer; valeur 2 :char; VAR 
retour : integer); 

Comme on peut le voir le grand changement c'est la pré- 
sence du mot <VAR> précédant le nom du paramètre 
formel. Ce petit changement va avoir de grandes consé- 
quences sur la valeur de < réponse >. Attention cepen- 
dant à ne pas utiliser ce petit mot à tort et à travers sinon 
gare aux erreurs. 

Par cette déclaration nous créons dans la pile de travail, 
un emplacement de 16 bits appelé < valeur 1 > pour le 
contenu de < donnée 1 >, un emplacement de 8 bits 
appelé < valeur 2> pour le contenu de <donnée 2>, 
un emplacement de 16 bits appelé < retour > pour le con- 
tenu de <réponse> ET UN EMPLACEMENT DE 16 BITS 
OU NOUS ALLONS COMMUNIQUER A LA PROCE- 
DURE APPELEE, <essai> L'ADRESSE DE LA VARIA- 
BLE < réponse >. 

Lorsque la procédure aura terminé son travail, avant d'ef- 
facer ses variables locales et de retourner au programme 
appelant, elle affectera le contenu de la variable locale 

< retour > à l'adresse de < réponse > contenue dans sa 
pile. Elle modifiera ainsi la valeur contenue dans 

< réponse >. 

Nous avons bien changé une valeur à l'aide d'une pro- 
cédure mais on ne peut pas dire que cela soit fortuit. Nous 
avons délibérément décidé de la changer. 



PROCEDURE essai (donnéej , donnée_2, donnée_3 
valeur_2, valeur_2, valeur_3 
VAR retourj , retour_2 
VAR réponsej, réponse_2 



integer 
char . 
integer 
char) 



C 



tion PROCEDURE. 



Syntaxe complète de l'instruc- 
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Syntaxe générale 

de la declaration procedure 



Nous pouvons maintenant écrire la syntaxe générale de 
la déclaration procédure. Nous allons pour cela suppo- 
ser que nous avons les paramètres formels suivants : 

— donnée 1, donnée 2, donnée 3 qui sont des entiers ; 

— valeur 1, valeur 2, valeur 3 qui sont des caractères ; 

— retour 1, retour 2 qui sont des entiers à retourner au 
programme appelant ; 

— réponse 1, réponse 2 qui sont des caractères à retour- 
ner au programme appelant. 

Le tableau o donne la syntaxe de cette déclaration. Nous 
voyons que les paramètres formels de même type peu- 
vent être énumérés comme dans le bloc déclaratif des 
variables, que chaque déclaration de type est suivie d'un 
point-virgule de la même manière que dans la déclara- 
tion des variables. Mais il y a une très grande différence 
dans la déclaration des paramètres formels qui doivent 
effectuer un retour au programme appelant : CHAQUE 
LIGNE doit être précédée du mot-cler VAR, ce qui n'est 

as illogique mais qui est souvent source d'erreur. 

ar ailleurs, une fois de plus, rappelons qu'il y a une 
grande différence entre la ligne PASCAL et la ligne édi- 
teur et que nous pouvons nous arranger pour que la dis- 
position de notre texte source soit aussi parlante que 
possible. 



P 



PROGRAM proc_7 (input, output) ; 

{ } 

(* partie déclarative *) 

PROCEDURE essai ( "valeur_1 : integer 

{*•"* •—....) va ieur_2 : char 

VAR retour : integer 
FORWARD ; 

PROCEDURE appelante ; 

{ } 

VAR 

réponse, donnée_1 : integer ; 

donnée 2 : char ; 



BEGIN 



essai (donnée_i , donnée_2, réponse) ; J> 



END; 

(* tin de la procédure appelante *) 

PROCEDURE essai ; 

{ ) 

(* l'en-tète est réduit *) 

(* à sa plus stricte expression *) 
BEGIN 

(* bloc instruction de essai *) 

END; 

(* tin de la procédure essai *) 

BEGIN (* programme principal *) 
END. (* fin du programme *) 
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PROGRAM proc_8 (input, output) ; 
{ * } 



{début de la partie déclarative} 
TYPE 

tab_5_10_int = array [1..5.1 ..10] of integer 
VAR 

tableau_1 : tab_5_1 0_int ; 

{fin de la partie déclarative} 

PROCEDURE entéte_correcte 

{ * } 

(valeur_1 : integer ; 

valeur_2 : tàb_5_10_int ); 
{on peut jouer avec la disposition} 
{de la ligne pour faire plus joli} 

BEGIN 

END; 

{fin de la procédure en-tête_correcte} 

PROCEDURE entête_non_correcte 

{*"*" " *"} 

(valeur_1 : integer ; 

valeur_2 : array [-1.2] of integer) ; 
BEGIN 

END; 

{fin de la procédure entête_non_correcte} 

{*"* * "* ") 

BEGIN (* programme principal *) 



END. (* fin du programme *) 
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LUELQUES SUBTILITES DE DECLARATION 

Le tableau 8 vous donne le mode d'utilisation général de 
la déclaration < FORWARD >. Elle est en accord avec 
ce qui a été dit au début de cet article : c'est lors de la 
déclaration de principe que l'en-tête doit figurer en entier 
afin que le compilateur puisse réserver dans sa pile le nom- 
bre d'emplacements correct et détecter les erreurs de com- 
patibilité des types. L'en-tête réel de la procédure, où sont 
détaillés les blocs d'instructions, quant à lui, n'est consti- 
tué que du nom de la procédure (pour mémoire). Le com- 
pilateur comme nous l'avions écrit ne fait donc pas deux 
rois le même travail. 

Le tableau 8 est plus subtil et nécessite une plus grande 
attention. La partie 8a est une déclaration d'en-tête de 
procédure correcte, la partie 8b est une déclaration d'en- 
tête incorrecte et produira un message d'erreur. La rai- 
son en est que, dans une déclaration de procédure, ne 
doivent figurer QUE DES TYPES CONNUS par le com- 
pilateur. Une déclaration < array [-1..21 of integer> n'est 
pas un type et conduit donc à l'édition d'un message d'er- 
reur. Pour plus de détail nous vous renvoyons à ce que 
nous avons écrit à ce sujet lors des déclarations de 
tableaux. 
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begin 

write (#3) 
end; 
{fin de curseur_on_- 

procédure curseur_off; 

_________________ "i 

__ j 

begin 

write (#2) 
end ; 
{■fin de curseur_offï 

{**** DEBUT DU PROGRAMME PRINCIPAL ****> 
begin 

clrscr ; 

curseur_of f ; gotoxy (10,10); readln (mot); 

cu.rseu.r_on ;gotoxy (10,15); readln (mot); 
endl 
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L I S T I N G 2 




lustration du problème du nom- 
mage des variables GLOBALES et LOCALES. 

program meme_nom (output); 

o=========================î 

type 

str20 = string C201; 
var 

nom_commun : str20; 

procédure bidouille; 
i > 

vsr 

nom_commun : str20; 
begin 

nom_commun: = ' bidouille'; 
writeln ('on est dans bidouille '); 
writeln (nom_commun) ; 
end; 
{-fin de procédure bidouille} 

O** début du programme principal ***} 
begin 

nom_commun:= 'principal'; 

writeln ('on est dans principal '); 

writeln (nom_commun) ; 

bi doui 1 1 e; (on va bricoler dans bidouille} 

writeln ('on est dans principal '); 

writeln (nom_commun) ; 
endl 

on est dans principal 

pr i ncipal 
on est dans bidouille 
bidoui lie 

on est dans principal 

pri nci pal 
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E.S.fl.T. Software 



55-57, rue du Tondu - 33000 BORDEAUX 
56.96.35.24 ou 36.1 5 C 4 puis ESAT. 




HERCULE II version 5.5 

m iiiti HM-J'Hi Ml*^ Pour sauvegarder les 

Çi'l'U^^"*' dernières nouveautés. 

Echange contre disque original 

HERCULE II et frais de port uniquement. 



HERCULE II : 395 F 



TRANSLOCK II PLUS 

Une version avec encore plus de performances. 
Compatible 464.664.6128. Echange contre disque original^ 
de TRANSLOCK II : seulement 95 F 



TRANSLOCK II + : 275 F 



TAPE LEADER 

Sauvegarde universelle de vos cassettes. Un moyen sûr 
de protéger vos bandes magnétiques. Existe en version 
cassette uniquement. 



TAPE LEADER :175F 



MEPHISTO 

Un moyen infaillible pour transférer vos cassettes 

sur disquettes. Transfère même les fichiers sans en-tête 

automatiquement. 



MEPHISTO : 205 F. 



■SQUETA1RES DE 



LAS. 



««JKSSffiffiff 



SON GENRE.» 



|i3:i.;.iii||[.!,V;|:.yiH 



TRANSFERER TOUS VOS JEUX SUR DISQUE 36.15 
C 4 puis ESAT 





LOGICIELS DE JEUX SUR AMSTRAD 464/664/6128 



MATÉRIEL 
GARAN T1 



REF. SH 0001 BIG BAND (2 DK) 



195 F 



Thriller des années 70. Sortie de prison, vous vous 
êtes juré de ne jamais y retourner. Au volant de votre 
voiture, vous débarquez dans une ville à la recherche 
de Max pour un vieux pocker noctambule. Une 
aventure extraordinaire où l'impossible devient réa- 
lité. Il va falloir user de tout votre tlair, pour rélaiser 
LE CASSE DU SIÈCLE. 



les effets les plus intéressants et les plus saisissants 
(démonstration incorporée). 

REF. SH 0004 INCANTATION (Du) 195 F 

REF. SH 0005 INCANTATION (K7) 1 45 F 

Jeu d'aventure faiùastique. 
Vous débarquez sur unp île où un riche industriel et 
sa famille prennent quelques jours de repos. Une 
série fantasmagor.que de monstrueux événements 
voous plonge dans un univers mystérieux et angois- 
sant. Réalité et cauchemar se mêlant il faudra garder 
toute votre lucidité pour affronter les forces du mal 
avant qu'elles ne parviennent à votre propre destruc- 
tion. 



REF. SH 0002 
REF. SH 0003 



C0MPACM0VE (DK) 
C0MPACM0VE (K7) 



195 F 
145 F 



Utilitaire de compactage, de décompactage et d'ani- 
mation d images. Chacun des modules est écrit en 
langage machine, ce qui lui confère rapidité et effica- 
cité. Simple d'utilisation, vous découvrirez vite les 
multiples facettes de ce logiciel qui vous permettra 



REF. SH 0006 
REF. SH 0007 



OWARF(DK) 
DWARF (K7) 



160 F 
110F 



REF. SH 0008 SKAAL(DK) 195 F 

REF. SH 0009 SKAAL(K7) 145 F 

Jeu d aventure animée humoristique. 
Toi, SKAAL, dernier.survivant dune race extermi- 
née, retrouve ta fiancée CUNEGONDE, enlevée par la 
DS.T. , afin de repeupler le globe de tes semblables. 
Ta première tâche consistera donc à découvrir l'en- 
trée secrète dissimulée dans la vallée d où tu com- 
mencera ta mission. 

REF. SH 0010 PEPE BEQUILLES (DK) 195 F 

REF. SH 0011 PEPE BEQUILLES (K7) 145 F 

Jeu d'aventure humoristique 
Humour et gags font de Pépé Béquilles un divertise- 
ment " anti-héros " qui ne manquera pas de séduire 
les amateurs de nouveautés originales. 



Arcade aventure de l'époque médiévale. 
Prisonnier dans une forteresse, vous devez parvenir 
au dernier niveau pour en sortir. Ruse et réflexion 
seront nécessaires pour échapper aux pièges. 



REF. SH 0012 CYBOR(DK) 
REF. SH 0013 CYB0R(K7) 
Arcade aventure. 



160 F 
110F 



L'OrdiCentral XB024 lance un appel au CYBOR de type 
JMT61 pour mission souterraine. Ordre de mission : 
Destruction immédiate de la pile thermonucléaire RAZ 
Tout duplicant préprogrammé par l'OrdiRebel intégré 
au système de défense sera évité ou détruit. Les 
données relatives à votre état général seront transmi 
ses par la procédure habituelle. Cet ordre de mission 
en complète autonomie. 

REF. SH 0014 MOMY(DK) 195 F 

REF. SH 0015 M0MY(K7) 145 F 

Jeu d'aventure fantastique. 
Julien MerialisSe. le célèbre archéologue est parti à 
la recherche d'une civilisation mystérieuse. Vous 
découvrez qu'une autre expédition est à sa pour- 
suite. Vous décidez de prêter main forte à votre ami 
et parvenez sans incidents au camp Merialisse. 
Seules les ruines d'une cité sélevant à proximité, 
attestent d'une vie passée. . . 
L'aventure vous mène au cœur de la cité en plus 
étrange où de curieuses traces apparaissent parfois 
dans la poussière... 




BON DE COMMANDE 

A RENVOYER AVEC VOTRE RÈGLEMENT 

A STAMP DIFFUSION 1 7, rue RUSSEIL - 4400 NANTES 

CI-JOINT MON RÈGLEMENT PAR CHÈQUE OU PAR MANDAT 

NOM 



VEUILLEZ M ENVOYER LES LOGICIELS DONT J INDIQUE 
LES TITRES CI-DESSOUS 



PRENOM . 



SIGNATURE 



RÉF 
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PRIX 
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ENVOI RECOMMANDÉ 


15 F 




TOTAL 





EN COULEUR 



Le programme CATALOGUE de CPC n° 26 a fait 
bien des heureux. Mais le bonheur naît aussi de la 
couleur. Voici donc quelques lignes BASIC à insé- 
rer dans le chargeur du programme. 

22 POKE &a487,CP: POKE &a488,CP 

23 POKE &a48a,CB:POKE &a48b,CB 

24 POKE &a48e,CC:POKE &a48f,CC 

CP est la couleur du crayon, CB la couleur de bor- 
dure, CC la couleur du crayon. Nous devons ces 
quelques POKE utiles à Pascal BERGE de Meudon 
la Forêt. 

CARACTERES D'EXTENSION WÊÊÊÊÊÊÊÊÊÊÊÊm 

Un lecteur avait lancé un appel concernant l'utili- 
sation des caractères d'extension 141 à 159, voici 
la réponse de deux autres lecteurs : P. COUTILLARD 
de Paris et L. MAZELLIER de St-Paul 3 Châteaux. 
Tout d'abord, il faut savoir qu'une chaîne de carac- 
tères peut être affectée à chaque caractère d'exten- 
sion, 128 à 159, grâce à la commande : 

KEY n°,"chaîne". 



I 



Ces caractères de contrôle peuvent être affectés à 
n'importe quelle touche du clavier ou du pavé numé- 
rique et même aux manettes. Les caractères de con- 
trôle portant les numéros 128 à 140 sont attribués 
au pavé numérique. Voyons le cas du 141 à travers 
l'affectation aux touches CTRL + "1" (le "1" du cla- 
vier I) de la fonction RUN. 

Dans un premier temps, nous définissons le carac- 
tère de contrôle par : 

KEY 141, "RUN" + CHR$(13) 

Nous pouvons et devons maintenant affecter ce 
caractère de contrôle à la touche désirée : le "1" 
du clavier dont nous voyons dans le tableau "Numé- 
ros des touches" du manuel qu'il porte pour numéro 
64. Nous écrivons donc : 

KEY DEF 64,1,49,33,141 

Où 64 est le numéro de la touche utile, 1 signifie 
que la touche fonctionne à répétition, 49 le code 
ASCII du caractère "1" (voir table décodes ASCII) 
lorsque la touche est pressée seule, 33 le code ASCII 



EDGACOLOR 



Dans Trucs de CPC n° 29, nous vous mettions sur 
la piste du changement de couleur "hard". Nous 
avons aujourd'hui le grand honneur, et le petit avan- 
tage, de vous présenter en première mondiale l'Ed- 




gacolor, dispositif génial et peu coûteux qui, au prix 
de quelques efforts, d'un minimum d'attention et de 
soin, transformera i'écran de votre CPC ou de votre 
téléviseur en arc-en-ciel. 

Voyons un peu comment cet appareil, rien moins que 
révolutionnaire, fonctionne. Sachez d'abord que le 
rouge se mélange avec le vert et le bleu, tandis que 
le vert se mélange avec le rouge et le bleu, et que 
le bleu se mélange avec... le rouge et le vert. Vous 
suivez, c'est très bien, vous recevrez un bon point 
à la sortie du cours. Avec l'Edgacolor, par combi- 
naison de trois potentiomètres, vous obtiendrez avec 
votre CPC une gamme de dégradés inconnue de vos 
yeux jusqu'alors. Demandez-leur I 

Pour fabriquer cette petite merveille d'électronique 
et d'astuce, il va falloir faire votre marché ou fouil- 
ler les fonds de tiroirs. Procurez-vous : 

— 1 fiche vidéo DIN 6 points mâle ; 

— 1 fiche vidéo DIN 6 points femelle ; 

— du câble à 6 conducteurs ; 

— 3 potentiomètres de 200 Q (ohms) (limites 
200/230 Cl) ; 

— 3 grands boutons de potentiomètres (précision) ; 

— 1 boîtier à votre convenance. 

Il vous reste maintenant à suivre le schéma en ne 
vous trompant pas dans le câblage. Mais ça, c'est 
votre problème I N'oubliez surtout pas de remer- 
cier Edgar YAPOUTZIAN de Marseille, génial 
inventeur de l'Edgacolor qui marque une ère nou- 
velle pour le CPC I Pour Edgar, hip, hip, hip... 
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du caractère obtenu par la pression simultanée de 
SH IFT et " 1 " ce caractère étant "!" et 1 4 1 le code 
de la chaîne de caractères que nous avons définie 
par KEY et qui est "RUN" + CHR$(13), nous l'ob- 
tiendrons par pression simultanée, non pas de 
SHIFT, mais de CTRL et du caractère "1". 
Nous sommes maintenant à pied d'œuvre et cha- 
que fois que nous appuierons sur CTRL et "1 ", nous 
obtiendrons l'effet d'un RUN suivi de ENTER. 
Exercez-vous en testant ces commandes, si vous 
n'avez pas bien compris, c'est très bien, vous 
apprendrez mieux I 

En guise de dessert, mais il serait idiot d'entrer ces 
lignes sans les comprendre, quelques KEY, KEY DEF 
et SYMBOL qui faciliteront beaucoup la saisie de 
listes de programme. 

10 KEY 141, "FOR ":KEY DEF 64,1,49,33,141 

11 KEY 142,"NEXT ":KEY DEF 57,1,51,35,142 

12 KEY 143,"GOSUB":KEY DEF 56,1,52,36,143 

13 KEY 144,"GOTO":KEY DEF 49,1,53,37,144 

14 KEY 145,"ELSE ":KEY DEF 48,1,54,38,145 

15 KEY 146,"CHR$(":KEY DEF 40,1,56,40,146 

16 KEY 147,"LOCATE ":KEY DEF 25,1,45,61,147 

17 KEY 148,"IF ":KEY DEF 29,1,58,42,148 

18 KEY 149,"THEN ":KEY DEF 28,1,59,43,149 

19 KEY !50,"READ ":KEY DEF 39,1,44,60,150 

20 KEY 151, "DATA ":KEY DEF 31,1,46,62,151 

22 SYMBOL AFTER 63 

23 SYMBOL 64 / &60,&30,&78,&c,&7c,&cc,&76 

24 SYMBOL 92,0,0,&3c,&66,&60,&3e / &8,&18 

25 SYMBOL 93,&lc,&32,&38, 

&6c,&38,&10,&90,&60 

26 SYMBOL 123,&6,&c,&3c,&66,&7e,&60,&3c 

27 SYMBOL 124,&30,&18,&66, 

&66,&66,&66,&3e 

28 SYMBOL 125,&60,&30,&3c,&66,&7 e/ &60,&3c 

29 SYMBOL 126,&18,&24,&3c,&66,&7e,&60,&3c 

30 KEY DEF 10,1,55,65 

31 KEY DEF 11,1,56,66 

32 KEY DEF 3,1,57,67 

33 KEY DEF 20,1,52,68 

34 KEY DEF 12,1,53,69 

35 KEY DEF 4,1,54,70 

36 KEY DEF 6,1,44,38 

37 KEY 128,"Veuillez agréer, M, l'expression ": 
KEY DEF 15,1,48,128 

Vous disposez maintenant de tout un jeu de touches 
de fonctions prédéfinies et de caractères accentués 
français pour imprimante. S'ils ne correspondent pas 
à votre imprimante, modifiez les codes en les rem- 
plaçant par ceux de votre manuel. 



S.O.S. 



Un lecteur, utilisateur de dBASE II 
et Multiplan, rencontre des problè- 
mes avec les fichiers d'aide de ces 
logiciels qu'il a placés, à cause de 
leur volume, sur une disquette sépa- 
rée. Quand il passe de la disquette 
de travail à celle d'aide, et récipro- 
quement, le système se plante. Lui 
indiquerez-vous la procédure à 
employer dans ce cas ? 
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SOUS QUELLE 

ETOILE 
SUIS-JE NE ? 





i 



320 F 

La disquette double-face 



MIROIR 
ASTRAL 

Avec une date, une heure et un lieu de naissance, 

votre CPC établira un portrait psychologique 

approfondi d'environ 15 pages sur imprimante I 

un logiciel qui vous étonnera par sa profondeur I 

% (version familiale d'un logiciel utilisé oar les professionnels 






Astropsychanallsez votre famille, vos amis 
fl comme les plus grands hommes célèbres. 

| = 

| | 380 F PgurCPC6128_ 

% Ces deux programmes existent aussi en version MS/DOS^ 

au PRIX de 420 F. chacun 



prévisions! 
astrales 



Un logiciel qui vous fera une étude prévisionnelle 

approfondie d'une période donnée ; 

(analyse basée sur les transits des planètes) 



! 



! 



BON DE COMMANDE 

A renvoyer à URANIE Software p 

B.P. 84 - fts-nn qamarv . Tél. 94 74 32 00| 

TYPE D ORDINATEUR UTILISE: 

Nom : 



! 



Adresse 



Ville 



^vous commande : 
1 logiciel "MIROIR ASTRAL" 



! 



1 logiciel "PREVISIONS ASTRALES'^ 
(port compris) ^ 

ci-joint mon règlement par chèque bancaire ^ 

83 



GUIDE DU 
PROGRAMMEUR 



125« IF ERR=25 THEN ail 



•* w PRINT OH»(7)jCHR»(24); - FlCHIER 




Votre programme est maintenant fin prêt, il ne vous reste plus qu'à envoyer 
votre œuvre à CPC. Mais n'oubliez pas : 

• d'envoyer les programmes sur un support magnétique (disquette ou cassette). 

• de joindre un mode d'emploi détaillé manuscrit ou dactylographié, la liste complète des variables peut 
également être utile. 

Quelques cas spéciaux : les jeux. Joignez les solutions ou bien des astuces pour "visiter" l'intégralité 
du programme. 

— les programmes sources en assembleur seront publiés à condition de posséder un commentaire 
conséquent. 

• les listings sur papier ne sont pas obligatoires puisque les programmes sont de toute façon réimprimés. 

• le programme enregistré doit répondre à certaines caractéristiques. 

— la taille des commentaires mis en REM ne doit pas dépasser 35 caractères. 

— il faut éviter l'utilisation des codes de contrôles (CTRL X, CTRL I etc.) ceux-ci n'étant pas "digérés" 
par l'imprimante. 

— les listings en assembleur doivent être accompagnés des chargeurs BASIC adéquats. 

Enfin, essayez d'être original, nous croulons sous les Master-Mind, ies Yam, les gestions de fichier, 
les lotos sportifs ou non. 
A bientôt dans CPC. 



PARTICIPEZ A CPC ! 



LE PROGRAMMEUR 

Nom Prénom 



Adresse complète 



Tel 



Age 



Joindre un relevé d'identité bancaire pour paiement 
de vos piges. 

Attestation sur l'honneur 

Je soussigné ., . , 

déclare être l'auteur du programme ci-joint et ne 
l'avoir jamais proposé à une autre revue. 

Le A 



LE PROGRAMME 

Nom 



Catégorie QJeu □ Utilitaire □ Educatif 
Taille 



Périphériques utilisés 



□ Disquette 



Support □ Cassette 

Compatibilité (testée) avec : 

□ 464 Q664 Q6128 OPCW8256 

□ PC1512 QPCW8512 

Signature 



lient re coupon et joignez- le à votre programme, sur cassette ou sur disquette, 
Envoyez le tout à CI'C - La I laie de Pan - :S5170 HRUZ 



BA/VC P'A 



LOq/C/ELS 




B 



UBBLE GHOST 



ERE INFORMATIQUE 
Arcade 

Bien que cela ne soit pas 
précisé, l'action se passe 
vraisemblablement en 
Ecosse. Pourquoi ? Tout 
simplement parce que, dans 
ce logiciel, sont présents 
deux éléments typiques de 
ce pays : un château et un 
fantôme... 

Pendant toute la durée du jeu, le 
petit fantôme (qui est fort sympa- 
thique) va poursuivre un seul et uni- 
que but : faire traverser à son âme 
toutes les salles du château. Facile, 
pensez-vous ! Pas tant que cela, 
car il faut savoir que l'âme du fan- 
tôme a l'aspect d'une bulle mais 
également sa fragilité I II va donc 
falloir souffler sur la bulle pour la 
faire avancer seulement en évitant 
tout contact avec les nombreux 
objets se trouvant dans chaque 
salle ! De plus, pour rendre les cho- 
ses encore plus difficiles, il y a cer- 
tains objets qui ne veulent que du 
mal à l'âme du fantôme : une bou- 
gie allumée ou un ventilateur en 
marche par exemple... Heureuse- 
ment, en soufflant au bon endroit 
il sera possible d'anéantir l'action 
néfaste de ces objets... 







Bubble Ghost vous promet, à notre 
avis, un bon moment de détente 
avec ce petit fantôme mignon 
comme tout qui devient tout rouge 
lorsqu'il souffle trop longtemps !... 
Pour le diriger correctement, il vous 
faudra un peu d'entraînement, il 
vous faudra également une bonne 
dose de réflexes pour vous position- 
ner où il faut avant l'arrivée de la 
bulle pour que celle-ci n'éclate pas 
lamentablement !... Graphisme 
attrayant et animation réussie. 




Classiques n° i 

ET 

CLASSIQUES N° 2 



TITUS 
Arcade 

Depuis que les jeux sur micro- 
ordinateurs ont commencé à exis- 
ter, nous avons pu constater une 
prolifération de jeux d'une part ainsi 
qu'une recherche de jeux de qua- 
lité de plus en plus élaborés d'au- 
tre part. Malgré tout, chacun est 
d'accord pour dire que l'on revient 
toujours avec plaisir aux logiciels 
dits classiques. C'est pourquoi les 
2 classiques de Tit*' s'avèrent très 
intéressants pour tous ceux qui 
n'auraient pas encore ces jeux en 
leur possession. 



# 



■ i 



Dans le Classiques n° 1, vous 
avez à choisir entre les Envahis- 
seurs où vous devez faire face à 
une armée dévastatrice, Glouton 
qui n'est autre que le célèbre Pac- 
Man et Infernal Breakout, casse 
briques dans lequel apparaît au 
bout d'un certain temps une 
deuxième batte fort encombrante. 
Quant au Classiques n° 2, vous 
vous retrouvez face à Penggo où 
vous devez aligner trois diamants, 
Arnold qui grandit au fur et à 
mesure qu'il se promène et, pour 
terminer en beauté, vous devenez 
as du volant (ou fou du volant, au 
choix) dans un infernal Grand Prix. 
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AN D'ISLANDE 



LORICIELS 
Aventure 

Un simple petit coup de baguette 
magique et vous vous retrouvez 
transporté en Norvège, en plein 
XVII e siècle... L'énigme de l'aven- 
ture peut se résumer ainsi : vous 
êtes Ordener Guldenlew preux che- 
valier profondément amoureux 
d'une jeune fille se prénommant 
Ethel. Malheureusement pour vous, 
Ethel et son père Schumaker sont 




prisonniers au château de Munc- 
kolm, faussement accusés de crime 
d'Etat. Prouver leur innocence tient 
à peu de chose : il suffit de fournir 
une simple cassette... Seulement, 
comme par hasard, cette fameuse 
cassette a été volée par le plus ter- 
rible bandit sanguinaire du pays, j'ai 
nommé Han d'Islande. 

Alors, il ne reste plus qu'une seule 
solution : vous lancer à la poursuite 
de Han par monts et par vaux (sans 
oublier les mines de la ville souter- 
raine) afin que le juste droit puisse 
triompher et que, dans l'ordre tout 
à fait logique des choses, vous 
puissiez épouser votre belle... 




Si vous n'êtes pas très féru en lit- 
térature, sachez que Han d'Islande 
est un des premiers romans de Vic- 
tor Hugo. Sa lecture vous aidera, 
le cas échéant à résoudre l'énigme ; 
de plus, sachez que le logiciel est 
livré avec une cassette audio don- 
nant de nombreux extraits d'émis- 
sions de France-Culture sur Han 
d'Islande. Le logiciel en lui-même 



présente un graphisme soigné et un 
analyseur syntaxique (ou plutôt un 
reconnaisseur de mots) de bonne 
qualité ; un seul regret à exprimer : 
les écrans où il n'y a pas beaucoup 
de texte semblent un peu trop 
vides. Malgré tout, il faut saluer 
l'initiative d'une adaptation sur 
micro d'une œuvre d'auteur 
classique... 



UBI SOFT 
Aventure 



Lorsque votre vaisseau tombe en panne et 
que vous vous sentes inexorablement attiré 
pat cette planète dont vous ignoriez aupa 
ravant l'existence, vous êtes loin d'imagi- 
ner tout ce que vous allez devoir vivre !... 



I 



Bien entendu, le but de cette aven- 
ture qui commence, c'est de par- 
venir à réparer votre vaisseau. A 
cette fin, vous vous promenez libre- 
ment dans tous les "coins" de la 
planète en ramassant de ci, de là 
quelques objets qui se trouvent sur 
votre chemin... Seulement, au bout 
d'un moment, vous commencez à 
vous creuser la cervelle afin de 
trouver une utilisation à tous ces 
objets !... Un conseil : laissez libre 
cours à votre imagination, faites 
preuve de beaucoup de sens d'ob- 
servation et vous aurez alors une 
petite chance d'arriver à la seconde 
phase de l'aventure. Par ailleurs, 
vous allez devoir passer par des 
séances de jeu d'arcade à chaque 
fois que vous êtes face à une stèle. 





t*. 







La marque 

JAUNE 

COBRA SOFT 
Arcade/Aventure 

La scène 1 de l'acte I se passe bien 
entendu au Centaur car il est 
impensable que Blake et Mortimer 
conversent au coin du feu ailleurs 



que dans ce club "bon chic, bon 
genre"... Pour ceux qui ne connaî- 
traient pas ces deux illustres per- 
sonnages, en voici un portrait très 
rapide : Francis Blake est le blond 
à la fine moustache, membre du 
bureau M. 1.5. de l'intelligence ser- 
vice et Philip Mortimer est l'écos- 
sais adepte du whisky, physicien 
d'avant-garde... 



Ils ont tous deux un sujet inépui- 
sable de discussions en la personne 
de Septimus ou la Marque Jaune. 
La Marque Jaune est, hélas, un 
génial inventeur ayant mis au point, 
entre autres, le télécéphaloscope 
permettant de diriger un cerveau à 
distance... Diabolique, non ? C'est 
au travers de cinq séquences dif- 
férentes que vous allez devoir faire 
échouer la Marque Jaune ainsi que 
sa créature "Olrik". C'est ainsi que 
vous devrez l'empêcher de s'échap- 
per des docks, puis le pourchasser 
dans Green Park avant de pénétrer 
dans les égouts ; vous entrerez 
ensuite dans le laboratoire diaboli- 
que où vous devrez récupérer le 
Trésor de la Couronne avant de 
mettre définitivement Septimus 
hors d'état de nuire... 



La Marque Jaune est un logiciel 
très travaillé au plan graphique et 
tentant de s'approcher le plus pos- 
sible de la B.D. Une partie de 
l'écran sert à l'action proprement 
dite tandis que des décors et per- 
sonnages viennent s'incruster... 

Dans la série adaptation de B.D., 
la Marque Jaune représente une 
bonne performance méritant le 
détour. 





Les objets récupérés de cette façon 
vous seront aussi très utiles, je 
dirais même plus nécessaires à la 
continuité du jeu mais, là encore, 
vous devrez en deviner l'utilisation 
par vous-même... 



D'emblée, nous pouvons vous dire 
qu'avec E.X.I.T., vous avez droit à 
une nouvelle catégorie d'aventure 
qui présente, à notre avis, plusieurs 
avantages : vous pouvez vous pro- 
mener librement dans plusieurs 
lieux avant d'agir (vous n'êtes pas 
bloqué dès le premier écran) ; tou- 
tes les actions se fout à l'aide 
d'une main (superbement animée) 
qui vous libère d'un analyseur 



syntaxique émoussant générale- 
ment vos nerfs ; les graphismes 
sont vraiment superbes (sans com- 
mentaire) ; et, pour terminer, cette 
aventure vous oblige à faire tout 



un cheminement devant vous rap- 
procher de l'état d'esprit des 
auteurs pour vous permettre de 
résoudre l'énigme... A voir 
absolument. 



□ 2 
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Tetris 

MIRRORSOFT 
Arcade 

Si vous avez tendance à avoir un 
esprit carré, ce jeu, qui nous vient 
directement des plaines qui s'éten- 
dent au-delà de l'Oural, est pour 
vous. En effet, le principe de base 
est très simple : vous avez à l'écran 
une aire de jeu composée de dix 
lignes verticales ; des blocs de for- 



mes différentes vont apparaître un 
à un en haut de l'écran. Il y a sept 
blocs différents facilement différen- 
ciables de par leur forme d'une part, 
et de par leur couleur d'autre part. 
Vous pouvez faire subir toutes les 
rotations possibles à chaque bloc 
afin d'obtenir la position la plus 
intéressante... Toutes ces manœu- 
vres sont à exécuter dans un seul 
but : former des lignes horizonta- 
les complètes ; dès qu'une ligne est 
formée, elle disparaît de l'écran et 
les formes se trouvant au-dessus 
descendent d'un étage (ou plus !). 
La performance à exécuter consiste 
à réussir à former le plus grand 
nombre de lignes possibles car dès 
que les blocs atteignent le haut de 
l'écran... c'est votre mort I 




BlLLY 2 

LORICIELS 
Arcade 

Après le franc succès qu'avait 
connu Billy la banlieue il y a main- 
tenant à peu près 18 mois, il pa- 
raissait indéniable que nous ayons 
un jour une suite ! C'est aujourd'hui 
chose faite et dans Billy 2, toute 
angoisse de l'intrigue réside dans 
un coup de téléphone que Billy doit 
donner à Lily et ce avant minuit I 
Car passé ce délai, "sa meuf s'fera 
la malle avec Ricky le Têtard..." 
(Cendrillon nouvelle version !) 



Ce logiciel présentant un concept 
original agit sur vous comme une 
drogue. Vous êtes tenté de réali- 
ser toujours un meilleur score et 
quand vous vous sentez à l'aise 



dans un niveau, vous pouvez pas- 
ser au niveau supérieur... Un der- 
nier détail : quand vous obtenez un 
bon score, la vitesse s'accélère I 






Billy 2 reste toujours fidèle à sa 
banane et c'est avec beaucoup de 
plaisir que vous pourrez le retrou- 
ver dans un cadre très coloré, sur 
un fond musical entraînant et avec 
une animation satisfaisante... 



Seulement, les téléphones deman- 
dent tous un code ! Alors, il n'y 
a plus qu'à jouer et jouer encore 
aux jeux vidéos qui permettront de 
gagner des sous et donc de se 
refaire de l'énergie pour abattre les 
potes de Ricky que celui-ci a 
envoyé à la rencontre de Billy pour 
lui mettre aimablement des bâtons 
dans les roues. La chaude ambiance 
quoi ! 




E 



CREATION 
ET ANIMATION 

DE SPRITES 



^\uite et fin du 
^k programme 
%J concernant 
l'animation des 
sprites. Dès le mois 
prochain, nous allons 
mettre en application 
ces principes afin de 
concevoir un jeu 
d'arcade entièrement 
en assembleur. 
Bon courage : il reste 
encore de nombreuses 
lignes à entrer. 



URGENT !!! 

Région Bordelaise, gérance 
à céder. Conviendrait à per- 
sonne jeune, dynamique, 
intéressée par la vente de 
matériel micro-informati- 
que. 

C.A. actuel : 200 000 F/ 
mois. 

Point de vente agréé AMS- 
TRAD, ATARI, COMMO- 
DORE. 

Pour tous renseignements : 
Tél. 56.91.15.81 
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Michel • 
MAIGROT 



INC HL 

INC DE 

DJNZ NEXTC2 

POP BC 

DJNZ NEXTL2 




LD 



BC, (LSP) 



LD DE, (VISAD) 

LD HL.BUFSPT 

DI 

PUSH DE 

PUSH BC 

LD B.O 

LDIR 

POP BC 

POP DE 

LD A,D 

ADD A, 8 

LD D, A 

JR NC.EXITAF 

PUSH HL 

LD HL,*C030 

ADD HL . DE 

EX DE.HL 

POP HL 

D.1NZ BCLAFI 



»»*»«♦♦ AFFICHER LES LIGNES ECRAN STOCKEES »**«*« 



MNTERDIRE LES INTERRUPTIONS MASQUABLES 
! (TESTS CLAVIER ET AUTRES) 
SGAGNE EN RAPIDITE D'EXECUTION 




<50 ^ 







LD DE, (ADPROV) 

LD HL, LINES 

LD BC, (LONGTAI 
I 

;»♦*** LIGNES BASSES **♦»» 

LD A, (LSB) 

OR A 

JR Z,LINEHA 



■ADRESSE D'AFFICHAGE 

! TABLE DES LIGNES STOCKEES 

! LONGUEUR D'UNE LIGNE 



i NOMBRE DE LIGNES 



CPC N° 32 - Mars 1988 
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NOM. 




REVUES POUR LES PASSIONNES 

CPC - REVUE DES UTILISATEURS D'AMSTRAD : en vous abonnant, vous recevrez chez vous 
votre revue. Vous bénéficierez de réductions sur certains produits et vous recevrez gratuitement un 
numéro spécial de MICRO Flash tous les deux mois, dédié à Amstrad. 

AMSTAR : en avant-première, toutes les nouveautés sur AMSTRAD - des programmes, des ar- 
ticles ! A la demande de nos lecteurs, nous prenons désormais les abonnements. 

PCompatlbles Magazine : la référence en matière d'initiation et de perfectionnement sur les "com- 
patibles PC". 

ARCADES : à peine sortis, des dizaines de jeux passés au peigne fin. Des interviews d'auteurs 
des rencontres avec les éditeurs : le mensuel des fans de jeux sur toutes machines. 



□ CPC AMSTRAD 
□ CPC AMSTRAD 
□ AMSTAR 

□ PCompatib|es Magazine 
□ Arcades 



11 numéros-220F 

6 numéros 12UF 

11 numéros __f 40 F 
11 numéros -4?QO F 
11 numéros -200 F 



Attention, tous nos abonnés 

reçoivent avant parution des 

souscriptions sur les 

nouveaux livres ! 



Prénom . 



Adresse . 



Code postai . 
Date 



Ville 



Signature 



Je m'abonne à : 



Merci d'écrire en MAJUSCULES. Ci-joint un chèque Ibelle à Tordre de : 
Editions SORACOM - Service abonnement - BP 1 1 - 35170 BRUZ - Retournez le(s) bulletin(s) ou une photocopie. 



LOGICIELS EDUCATIFS ET UTILITAIRES 
POUR CPC 



MATERIEL 
GARANTI 



ED15PARTICIM 

SAC A DOS 

ED19GE0 

ED 4 MATHASARD 

ED 5 ORTHOREPERES 

ED 10 TABLE ET 0ECI 

ED 17 SYSMETH OPERAM 



DISQUETTES 



ED 2 PLURIEL/AMSTERM 
MATH COLLEGE 
MATH COLLEGE II 
SUPER PROF 
VALISE 6 EME 

AUTOFORMATION ASSEMBL FR 
7689 CALCUMAT FR 
OAMS FR 
DATAMAT FR 



123 F 
290 F 
123 F 
123 F 
123 F 
123 F 
123 F 



288 F 
254 F 
254 F 
670 F 
555 F 
280 F 
425 F 
291 F 
425 F 



7546 DESSIN 3 257 F 7785 

7789 ECHO SOFT 369 F 7528 

7321 GENERATEUR DAPPLICAT. DBASE II 189 F 7529 

7381 HERCULE 235 F 7527 

7787 IMPRESSION 225 F 7530 
7250 L'EXPERT 150 REGLES 6126 620 F 7320 

7788 L'INTERPRETE 272 F CDD 114 
7502 MASTER.MIN (CABLE MINITEL) 142F CDD 115 
7501 MASTER.MIN (DQ 61281 142 F ZDD 301 
7786 MEPHIST0 193 F ZDD 302 

7286 POCKET BASE 6128 763 F ZDD 303 

7287 POCKET WORDTAR 6128 859 F EDO 700 

7690 SOLUTION ( DATA * TEXT0 . CALCO) 896 F EDD 701 
7688 SPACE MOVING FR 291 F EDD 702 
7220 SPEEOY W0NDER CPC 464/664/612» 236 F ZDD 703 
7687 SUPER PAINT FR 374 F ZDD 704 

7691 SUPER PAINT t SPACE MOVING 520 F CDD 801 
7664 TEKTOMATFR 425 F CDD 508 



TRANSLOCK II 

TURBO DATABASE TLBOX 

TURBO GRAPHIX TLBOX 

TURBO PASCAL 0PT GRAPH 

TURBO TUTOR 

VILLA MEDICIS 

DISQUETTE E0UCATIVE 1 

DISQUETTE EDUCATIVE 2 

DIDACT ENGLISH 0RTH GRAM 

DIDACT ENGLISH ORTH GRAM 

DIDACT ENGLISH ORTH GRAM 

CAPUCINE 

L'ANIMALIER 

LES 4 SAISONS 

SAC A DOS 

LES VOLEURS DE TEMPS 

ED 8 GEO 

ED 6 VOCABULAIRE 



210 F 
656 F 
656 F 
875 F 
324 F 
236 F 
240 F 
240 F 
(Collège) 250 F 
(Lyctt) 250 F 
(B.T.S.) 250 F 
198 F 
198 F 
198 F 
290 F 
240 F 
284 F 
284 F 




BON DE COMMANDE 

A RENVOYER AVEC VOTRE RÈGLEMENT 

A STAMP DIFFUSION 17, rue RUSSEIL - 4400 NANTES 

CI-JOINT MON RÈGLEMENT PAR CHÈQUE OU PAR MANDAT 

NOM . 



VEUILLEZ MENVOYER LES LOGICIELS DONT J INDIQUE 
LES TITRES CI-DESSOUS 



PRÉNOM . 



SIGNATURE 



RÉF 


TITRES 


QUANTITES 


PRIX 




















































TOTAL 






ENVOI RECOMMANDÉ 


15 F 




TOTAL 





INFORMATIQUE 

ET COMMUNICA TION 
SUR LE 36. 15, CODE MHZ 



Notre serveur vous offre 24 heures sur 24 la possibilité d'en savoir plus, 

de nous contacter, ou de poser des questions aux autres lecteurs ! 

De nouvelles options sont disponibles ! Un jeu questions-réponses et une possibilité 

faite aux revendeurs français de vous informer directement. 



TOUTES NOS REVUES 



Savoir comment nous joindre, le sommaire des 
revues du mois en cours et les infos ! 



BOITE A LETTRE A DEUX VITESSES 



Vous souhaitez poser une question directement 
et personnelement aux rédacteurs ou à un servi- 
ce : vous pouvez le faire par les BAL. Vous avez 
une question à poser et vous souhaitez que 
d'autres lecteurs, en plus de nous, y répondent. 
C'est encore possible ! 

Mais attention, n'oubliez pas de vous ouvrir une 
BAL en même temps ! 



LES PETITES ANNONCES 



Vendre vite, acheter vite 24 heures sur 24 et 7 jours 
sur 7 ! Accessibles par tous. Vous pouvez passez 
votre annonce directement, elle sera validée dans 
la journée ! 



DIALOGUE 



Une rubrique Dialogue est à votre disposition. Vous 
pouvez vous y donner rendez-vous 24 heures sur 
24. 



REVENDEURS NOUVEAUX 



Les revendeurs français peuvent gratuitement 
ouvrir une page minitel pour présenter leurs pro- 
duits, leurs promotions ! 
UNIQUE ! 



SI ON JOUAIT ? 



Vous pouvez gagner, comme sur nos revues, cha- 
que jour un cadeau et le meilleur du mois, un 
voyage ! 



HOROSCOPE 



Et depuis 1988, votre horoscope ! 



VOUS AUSSI, REJOIGNEZ UNE EQUIPE QUI GAGNE ! 



Au téléphone, 1 5 minutes coûtent en moyenne 55 francs. 
Par minitel, il vous en coûte pour le même temps 1 5 francs. 



LE BON CHOIX : 36.15 MHZ 




PETITES 
ANNONCES 



CPC est une publication du 
roupe de presse FAUREZ- MELLET 



Directeur de publication 

Sylvio FAUREZ 

Rédacteur en chef 

Olivier SAOLETTI 

Rédaction 

Catherine V1ARD 

Correspondants 

Marseille : Karine ELGHOZI 

Paris : Anne-Marie THOMAZEAU 

Lille : Abdelkrim SAIFI 

Secrétaire de rédaction 

Florence MELLET 

Rewriter 

IsabeUe HALBERT 

Directeur de fabrication 

Edmond COUDERT 

Maquette 

Jean-Luc AULNETTE - Patricia MANGIN 
Secrétariat - Abonnements 
Catherine FAUREZ - Tél. 99.5298.11 
Relations extérieures-Promotion 
S. FAUREZ 

Administration - Diffusion 

Editions SORACOM 

La Haie de Pan - 35170 BRUZ 

RCS Renne» B319 816 302 

CCP Rennes 794.17V 

Tél. 99.52.98.11 + 

Télex SORMHZ 741.042 F 

Serveur 3615 MHZ 

Vente au réseau exclusivement 

B.E.P. 

C. CHOUARD Chef des ventes 

Terminal E83 

Régie publicitaire 

IZARD CREATION - 15, rue St-Melaine 
35000 RENNES - Tél. 99.38.95.33 



Vous avez perdu doc. ou notices. Je vous les pro- 
cure (photocopies). Coût modique. Rens. Tél. 
31.74.57.16 demander Ludovic. 

Vends CPC 664 couleur + disks + joystick + 30 
utilit. + 20 jeux + traitement de texte 3300 F. Tél. 
69.49.32.09. 

Cause 5" 1/4 vends 100 disks pleins à craquer ! 
50 F l'un. Lionel Briffaz 9 rue E. Quinet 01100 
Oyonnax, tél. 74.73.76.06 après 19 h. 

Vends ZX81 + livres + 5 K7 de jeux : 250 F. 
Memopak64 K : 350 F Tél. 82.84.34.17 deman- 
der Laurent. 

Vends Meurtre à grande vitesse, K7, 70 F - Fair- 
light disk 60 F ou échange contre disquettes vier 
ges. Tél. 82.84.34.17. 

Vends Vectrex (état neuf) + 4 cassettes 700 F. 
M. Drevot, tél. 76.25.69.56. 

Vends 6128 coul. + manette + 40 disks avec 
jeux, utilit., copieur + câble K7, Hi-Fi + rallonge 
+ nbx livres et revues : 3900 F. Tél. 39.59.60.88 

Logiciels ésotériques : horoscopes tibétains ou ara- 
bes 65 F l'un ou les 2 pour 110F (envoi gratuit) . 
Estergar, Douloin 58140 Lormes. 

Maths, algèbre, pro : équations, polynôme etc 
Prog. in édit très soigné BASIC et Turbo. R. Cabane 
43.38.62.71 soir après 21 h. 

Vends CPC 464 monochrome encore sous garan- 
tie. Nbx jeux, prix 1800 F. Tél. 40.58.75.15. 

Achète imprimante MCP 40 pour 6128, 500 F ou 
échange contre Hit Pack 1 et 2 + 6 super Hit + 
200 F + livre MA 7. Tél. 39.91.81.82 après 18 h. 

Vends lecteurs de disquettes 5" 1/4 neufs pour 
Amstrad double face. Prix 1600 F (360Ko) et 
1800 F (720Ko). Tél. 42.08.11.28. 

Echange disk simulation Silent Service original con- 
tre tout autre - Idées programmation BASIC CPC . 
Contacter Pascal 40.09.08.05. 



Ech. utilitaire Echo Soft, discology, TMS, Art Stu- 
dio... contre périphériques ou utilitaires. Tél. 
67.27.75.43 après 18 h. 

Vends CBS + 9 jeux, le tout en t.b.e., boîte d'ori- 
gine, 1500 F. Tél. 39.80.48.76 (Philippe) région 
parisienne- 
Affaire I cause double emploi vends Okimate 20 
sous garantie, très bon état, 1700 F. Tél. 
47.06.55.69 

Vends 464 coul. + DDI 1 + 47 disk + 20 K7 + 
DM 2000 + SSA 1 + doc + meuble 6500 F. Tho- 
mas L. 5 av. de Lattre de Tassigny 57210 Maiziè- 
res les Metz. 

Vends Amstrad 8512 + Mplan + Dbase + échec 
+ planit. + hous + 6 livres + Bte rngement + 
1 disq. Neuf 9200 F - 6000 F - Tél. 43.98.03.30 
après 20 h 

Vends CPC 464 mono + lecteur DDI 1 , état neuf 
3000 F - 250 Softs disponibles. Demander liste au 
40.54.91.46 banlieue nantaise. 

Vends imprimante Centronics GLP état neuf + 
câble Amstrad 1200 F. Bimet 80 rue de la Jarry 
94300 Vincennes tél. 43.28.88.18 après 18 h. 

Vends CPC 464 mono + lecteur disk DD 1 + 
Imprim. Citizen 120D + joystick + 25 disk rem- 
plis de jeux + bouquins 6500 F. Tél. 30.91 .42.41 

Vends programme pour 6128 vous donnant 64 K 
de plus de buffer pour imprim. Envoyer chèque de 
85 F. Tél. 42.20.55.71 

Cherche contact Pascal, utilitaire, CPM + et 2.2. 
Court Grégory 75 avenue de la Gare 07380 Lale- 
vade d'Ardèche. 

Vends synthétiseur vocal (dise) état neuf + Miami 
Vice + Winter Games + programme, synthétiseur 
400F tôt. (démo). Tél. 78.34.53.97 le soir. 

Vends CPC 464 + DDI + interface + 100 jeux 
sur K7 et disquettes + 40 utilitaires (Discology) le 
tout ou séparément, t.b.e tél. 97.66.72.33 



Dépôt légal s parution 
Distribué en Suisse par : 
SEMAPHORE - TéL 02254.11.95 



AMSTRAD est une marque déposée. 
CPC est une revue mensuelle totalement indé- 
pendante d'AMSTRAD GB et d'AMSTRAD 
FRANCE. 

las noms, prénoms et adresses de nos abonnée sont oo 
muniqués a nos services internes du groupe, ainsi qu'aw 
organismes Hés contractueUement pour le roulage. Lee 
informations peuvent tait» /objet d'un droit d'accès et de 
rectUicaiion dans le cadre légal. 

Les articles et programma* que nous publions dans ce 
numéro bénéficient, pour une grande part, du droit 
d'auteur. De ce lait, ils ne peuvent être imités, contrefaits 
copiés par quelque procédé que ce soit, même 
partiellement sans l'autorisation écrite de la Société 
SORACOM et de l'auteur concerné. Les opinions expri- 
mées n'engagent que la responsabilité de leurs auteurs. 
Les différents montages présentés ne peuvent être 
réalisés que dans un but privé ou scientifique mais non 
commercial. Ces réserves s'appliquent également aux 
logiciels publies dans la revue. 



Vous avez l'intention de créer 
ou vous dirigez 

VOTRE BOUTIQUE 
INFORMATIQUE.. 

METTEZ TOUTES 

LES CHANCES 
DE VOTRE COTE ! 

REJOIGNEZ LA FRANCHISE OEIA 
ET DEVENEZ DISTRIBUTEUR 



POUR MOINS DE 20000 F M! 

Distributeur agréé AMSTRAD, 
COMMODORE, ATARI, ORIC et 

COMPATIBLES PC. 
RENSEIGNEZ-VOUS VITE AU 

56.91.15.81 



Rentabilisez votre 6128 (*) 
& PCW 8256/8512 

Programmes en accès Direct 

Gestion de fichiers, + de 900 fiches 
de 186 car. répartis en 10 rubriques 
rech. multicritères. Mailing, 120 F 
Gestion comptes bancaires + de 

3000 écritures, nb cpt illimité 180 F 

Gestion de bibliothèque + de 1500 
titres de livres ou revues 180 F 

Compilation des trois programmes 
pour CPC 6128 uniquement... 320 F 

Envoyez votre commande 
et règlement 

(Prix port compris) 
à 

M. Roger Desfournaux 

31, rue du Couvent 
84300 CAVAILLON 

Tél. 90.76.13.49 

Rens. + catalogue contre 2 timbres 
(*)avec licence Mallard. CPC N° 17 p. 60 
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PETITES 
ANNONCES 



La place réservée aux petites annonces est 
limitée. En conséquence, celles-ci passent 
dans leur ordre d'arrivée. Par contre, les peti- 
tes annonces farfelues sont systématique- 
ment rejetées... De même, comme il est peu 
probable qu'il existe des "généreux dona- 
teurs" de matériels ou de logiciels, les peti- 
tes annonces faisant appel à ces philantro- 
pes ne seront insérées que si la place libre 
le permet. 

Seront refusées toutes les annonces visant 
à vendre ou échanger des listes ou copies de 
logiciels non garantis "d'origine", ainsi que 
toute annonce incitant au piratage. 
En conséquence, réfléchissez bien avant 
d'envoyer vos textes. 
Les petites annonces doivent impérativement 
nous parvenir sur la grille (découpée ou pho- 
tocopiée), le texte étant rédigé à raison d'un 
caractère par case. 

Enfin, toute annonce non accompagnée de 
timbres ne sera pas insérée. 



A vendre CPC 61 28 coul. s/gar. + 30 disk et jeux 
+ multiface + souris + synthé vocal + 50 revues 
+ 5 livres. Val 8700 ou séparés. Tél. 39.50.57.20 
le soir. 

Possesseur 6128 couleur cherche contacts sympa, 
Lyon, autres. Jean-Paul Grange, 9 rue St Gervais 
69008 Lyon. 

Cherche contacts Amstrad ou club Amstrad sur 
Toulouse. Possède 664. Tél. 61.58.32.46. 

Vends 6128 sous garantie cse PC5 1 2 dans embal. 
d'origine 3500 F - couleur - Tél. 34.16.68.47 Jean- 
Pierre 116-11 après 19 h. 

Vends Amstrad CPC 464 + moniteur couleur + 
joystick. Prix à débattre. Tél. 48.54.70.98 à partir 
de 20 h. 

Vends CPC 464 + 100 jeux très bon état + plus 
de 50 livres ou magazines écran couleur 2450 F. 
Tel à François 55.56.08.35. 



Vends jeux Passagers du Vent, état neuf + maga 
zine CPC 13. Tél. 89.80.03.51 entre 18 h et 
20 h 30. 

Vends nbx logiciels Amstrad, listes sur demande. 
Rép. assurée. Charrier Patrice, Bussières et Pruns 
63260 Aigueperse. 

Débutant CPC cherche contacts vers Douai 
(59500I. Tél. 27.97.24.10 entre 18 h et 20 h. 
Demander Eric. 

Vends CPC 464 couleur + 6 logiciels + joystick 
+ crayon optique + livre de programmes + 
revues, 2800 F. Tél. 65.29.84.01. 

Achète meilleur prix revue CPC n° 1. Tél. 
31.95.69.07. 

Vends CPC 6128 couleur état neuf sous garantie 
+ disquettes dont logiciels + joystick + livres. Tél. 
96.22.81.79 (C.d.N). 

Vends CPC 464 couleur + extension 512 K + 
DMP 2000 + lecteur disquette + livres et plus de 
100 logiciels, 5500 F. Tél. 43.05.50.47. 

Vends CPC 6128 mono loct. 86) + jeux + livres 
déprogrammes + 8 disquettes vierges + revues 
le tout 2800 F. Tél. (1) 46.64.47.89 après 19 h. 

Urgent ! Vends CPC 464 mono + adaptateur péri- 
tel + joys. + manuel + revues informatiques + 
10 logiciels, 3000 F. Tél. 83.57.36.61 après 19 h. 

Vends livres MA, Sybex, PSI Amstrad, t.b.e. + 
logiciels originaux 1/2 prix. Vends 2 joysticks + 
doubleur, t.b.e. 180 F. Tél. 30.71.40.78. 

Vends jeux en K7 Harrier Attack, Rally 2, Cobra, 
Pinball etc. Tél. 45.56.44.10 demander M. 
Willems. 

Vends imp. CMP1 t.b.e. + 3 rubans neufs + copie 
d'écran 1000 F. Tél. 60.19.78.39 h. bur. M. 
Debray. 

Vends lecteur 5 1/4 Vortex F1-S (pas besoin DD1 
pour CPC 464) + 10 disks jeux/util. + cas. 
2500 F. Tél. 49.28.49.66. Dom. Niort. 

CPC 464 recherche drive DD1 1, 900 F, Strasbourg. 
Tél. 88.27.22.21. 



Cherche copie de l'article de juin 87 : CAO sur CPC 
n° 4, frais remboursés. A. Paolino 9 rue du Lich- 
tenberg 67800 Hoenheim. 

6 1 28 recherche correspondant pour échange logi- 
ciels (dans toute la France!. Tél. 23.56.22.73 après 
18 h. Jean-Michel. 

Vends CPC 464 couleur + 25 jeux + éducatifs + 
10 utilitaires lass, pas, tab, txt, gest, BASIC.) + 
doc: 3000 F Tél. 46.30.23.23 P. 665 h.b. 

Vends N° 57, 67, 72, 77, 82, 92 à 1 68 du journal 
Hebdogiciel. Mme Thomas tél. 99.31.21.51. 

Stop affaire ! Le tout seulement 500 F : ordinateur 
personnel Aquarius + raccord télé + livres + 
(envoi gratuit). Tél. 76.56.00.54. 

Vends CPC 464 mono + jeux en bon état + divers 
manuels, le tout 1600 F. Demandez Christian tél. 
16 (1) 60.47.28.83. 

Vends Amstrad 6128 coul. t.b.e. + 40 disq. + 
doc. + rev. + 2 joyst : 3500F. Tel (Il 
60.75.30.44 M. Christophe Le Toullec (91) 
Essonne. 

Kit d'adaptation lecteur 5 1/4 pour 464 - 664 - 
6128 (alim. + cordon + drive 2 tètes commut). 
1000 F tout compris. Pour ts rens. 39.72.68.66, 
18 h. 

Vends jeux et utilitaires originaux pour CPC 464 ou 
6 1 28 - K7 ou disq . moitié prix, neuf ! Liste sur dem . 
Renault 69.00.45.75 après 17 h. 

Vends 25 K7 : 1000 F (originaux) dont Crafton, 
3D, Grand Prix, Infernal Runner, Kikekankoi, 5 Axe, 
Sorcery, Dash. Tel (1) 43.80.66.92. 

CPC 6 1 28 cherche contacts pour échanges (jeux, 
utilitaires). Edouard Laniesse, 10 rue des Brosses, 
77169 Boissy le Chatel. 

Vends Apple II E moniteur vert - lecteur 5 1 /4, nom- 
breux logiciels, prix à débattre. Tél. 82.50.67.95. 

Vends CPC 464 + DDI 1 + Mirage Imager + 
synthé vocal + 2 joysticks + 250 disquettes + 
jeux + 50 magazines + cassette azimutage, 
5500 F. Tél. 48.84.19.75. 



ANNONCEZ-VOUS ! 


Vous pouvez passer directement vos annonces sur le minitel. 

Elles seront validées dans la journée. 

Attention : dans un tel cas, elles ne seront pas dans la revue. 

Une annonce envoyée à la rédaction est mise sur le serveur dans les 48 heures. 
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Coupon à renvoyer accompagné de 4 timbres à 2,20 F à : 
SORACOM, La Haie de Pan - 35170 BRUZ 


o 

u 


Gagnez du temps ! Sur Minitel 36.15, tapez MHZ 
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LIVRES 

+ port 10% 



D Compilation n° 2 (5 à 8) 

□ La pratique des imprimantes 
Michel ARCHAMBAULT 

□ Apprenez l'électronique sur AMSTRAD 
P. BEAUFILS & B. DESPERRIER 



□ Communiquez avec AMSTRAD 
D. BONOMO-E. DUTERTRE 

(Nelle édition) 

□ Jouez avec AMSTRAD -KERLOCH 

□ L'Univers du PCW - Patrick LEON 

D L'Univers des PCW -Patrick LEON 
Cassette 

□ Communiquez avec Amstrad 

□ Communiquez avec AMSTRAD 
Disquettes 



80 F 
95 F 
95 F 

115 F 

48 F 
150 F 
119 F 

250 F 
190 F 

A: TOTAL 



B: PORT 10% 
A + B TOTAL GENERAL 



ANCIENS NUMEROS 

Franco de port 



Attention, n° 1 à 8, 12, 14, 15, 17,21 et HS 1 , 7 épuisés 



□ 9,10,11,13,16,18,19 

20, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31 25 F 



REPORT TOTAL GENERAL A + B 



HORS SERIE (sans cassette) 

□ n°2 

□ n°3,4,5,6,8 



13 F 
15 F 



Entourez le (ou les) numéro(s) commandé(s). 



DISQUETTES 

Franco de port 



1 disquette contient 2 n" consécutifs de CPC 

- Disquette n°1 comprend CPC 1 et 2 

- Disquette n°2 comprend CPC 3 et 4 

- Disquette n°3 comprend CPC 5 et 6 

- Disquette n"4 comprend CPC 7 et 8 

- Disquette n°5 comprend CPC 9 et 10 

- Disquette n°6 comprend CPC 11 et 12 

- Disquette n" 7 comprend CPC 13 et 14 

- Disquette n"8 comprend CPC 15 et 16 

- Disquette n°9 comprend CPC 17 et 18 

- Disquetten" lOcomprendCPC 19 et 20 

- Disquetten 11 comprend CPC 21 et 22 

- Disquette n°12 comprend CPC 23 et 24 

- Disquette n"13 comprend CPC 25 et 26 

- Disquette n"14 comprend CPC 27 et 28 

- Disquette n"15 comprend CPC 29 et 30 



Les disquettes HORS-SERIE 
contiennent les programmes du numéro correspondant. 



□ abonné 110 F □ non abonné 140 F 

□ abonnement disquettes (6) 600 F 



Le* abonnements disquettes ne sont pas rétroactifs. 

Total général franco Port en sus 10% pouf envois par avion 



NOM: 



Prénom 



Adresse : 



Code postal : 
Date : 



Ville : 



Signature : 



Merci d'écrire en majuscules. Ci-joint un chèque libellé à l'ordre des Editions SORACOM. 

Retournez le(s) bulletin(s) ou une photocopie à : Editions SORA COM - La Haie de Pan - 351 70 BRUZ. 



E L 



■ v \*-*;hp 



■ . Utilitaires graphiques • Gestion de fichiers 
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Mastercalc • Semobank • Semastol 



z 
g 

'LU 

o 
O 



z 
< 



s 
o 

z 
o 

u 



< 

Ni 

LU 

X 

< 



at- &ec ! 







DISCOLOGY 
EN 7 POINTS FORTS: 

> La facilité : Fenêtres, Menus Déroulants, Aide Intégrée. 

> La vitesse: 160 Ko de Langage Machine pur. 

> La performance : la copie de sauvegarde intégrale pour vos dis 
quettes et cassettes. Encore plus rapide, encore plus puissante. 

> La précision : un manuel complet et une notice technique 
approfondie. 

> L'inédit : un Editeur universel de secteurs, un Désassembleur Z 80, 
un Listeur Basic, un Exploreur en Temps Réel"... 

> La compatibilité : la gestion intégrale des extensions mémoire, 
des lecteurs 5 1/4 pouces. 

> La référence: des milliers d'utilisateurs satisfaits en France 
comme à l'Etranger. DISCOLOGY est reconnu et acclamé par la 
Presse Internationale. 



DISCOLOGY, à déguster nature et sans amuse-gueule 
par tous ceux qui ont soif de pouvoir et de connaissance. 

Savourez la version 5.0 sans glace car elle est bien dosée. 
Venez vous désaltérer à sa source pétillante d'informations et 
découvrir son monde inconnu tout en gardant les idées claires. 

La recette de ce cocktail détonant? Un Editeur ultra-puissant 
au goût inédit, un Copieur hyper-performant pour les 
amateurs de sensations fortes, un Exploreur super-musclé 
avec un zeste d'exotisme... Et une bonne dose d'ingéniosité ! 

DISCOLOGYversion 5.0 et tout devient limpide. 
Alors TCHIN! 



LU 
Z 



DISCOLOGY Version 5.0 est disponible immédiatement, sans frais de port, auprès de MERIDIEN Informatique 5 et 7, La canebière-13001 Marseille Tel.: 91.94.15.53 
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BON DE COMMANDE Djs UJ ^^,,î* <tliB ,,, 

D Je commande DISCOLOGY au prix de 350 F 

□ Je commande Master Save (Copieur seul) au prix de 1 90 F Je règle ma commande : 

□ Je possède déjà Master Save et je commande DISCOLOGY. □ par chèque joint (port gratuit) 

Je joins ma disquette Master Save et je ne paye que 160 F D contre-remboursement (+ 30 F de frais de port) 

Nom : Prénom : 

Adresse : 



Code Postal : 



Vil! 



e: 



Tél.: 



A retourner à MERIDIEN Informatique - 5 et 7, La Canebière - 13001 MARSEILLE 
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m INFORMA 



, MERIDIEN 

FlNFORMADOUE 
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Billard américain 
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SCMMAIM: 



mstrad ne peut 
[plus employer le 
'terme "CPC" 
pour ses micros 
familiaux, en 
revanche rien ne lui 
interdit d'utiliser PPC 
pour le nouvel 
ordinateur compatible 
avec qui vous savez 
et de lui donner la 
forme d'un portable... 
Cet ordinateur pas 
vraiment 

révolutionnaire était le 
seul événement de 
l'Amstrad Computer 
Show qui avait lieu 
du 4 au 6 février à 
Londres. Nous vous 
en parlerons bientôt... 
Tout cela n'empêche 
pas CPC de vous 
proposer une 
nouveauté : le forum 
des lecteurs. Cette 
rubrique, souvent 
réclamée, sera mise 
en place dès le mois 
prochain. D'ores et 
déjà, nous vous 
invitons à nous 
inonder de votre 
courrier. 



La Rédaction 

3 



LES 
REPRESENTATIONS 
GRAPHIQUES 
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Iotre but n'est pas de vous 
livrer un logiciel "qui sache 
tout faire"., il serait énorme, 
mais de vous indiquer comment le 
programmer vous-même, exacte- 
ment à vos mesures. Ce ne sera plus 
qu'un sous-programme intégré dans 
votre programme. Une fois tracée à 
l'écran, vous aurez la possibilité 
d'enregistrer cette image ou de l'en- 
voyer à l'imprimante. 
Le su|et n'est pas neuf : nous avons 
déjà publié la représentation 
camembert dans CPC n° 2 page 19, 
les histogrammes en 3D dans CPC 
n° 1 3 page 54 et les graphiques en 
XY dans CPC n° 6 page 46. Ces 
trois articles ont été ensuite amélio- 



rés sur des points de détails dans 
l'ouvrage du même auteur "Pro- 
grammes utilitaires pour AMS- 
TRAD" (Editions SORACOM). 
Aujourd'hui nous reparlerons des 
graphiques XY, car le logiciel déjà 
cité était un "monstre à tout faire" 
très performant, mais dont la com- 
plexité mathématique a souvent 
effrayé... Cette fois-cï c'est beau- 
coup plus simple d'emploi puisqu'il 
n'y a plus tous ces paramètres à 
entrer ; ils sont constants car ils ne 
concernent que votre programme et 
lui seul. Seuls le titre et les valeurs 
des points changent, d'où un listing 
beaucoup plus court et surtout beau- 
coup plus simple. Heureusement, car 
là on est obligé de comprendre ce 
que l'on tape, puisque nous avons 
annoncé du "sur mesure"... 

DEFINISSONS L'ECRAN 

Pas question d'être en MODE 1, le 
MODE 2 est quasi obligatoire avec 
ses traits fins et ses 80 caractères par 
ligne. De ce fait on passe en carac- 
tères noïrs sur fond clair (gris ou bleu 
clair) pour les CPC couleur. 
On dispose horizontalement (X) de 
640 points et verticalement (Y) de 
400 points. En fait ces derniers s'éta- 
lent sur 200 lignes vidéo : cette 
"dilatation numérique" de 200 à 
400 est une commodité de program- 



Un désir légitime est d'obtenir 

sur écran (ou sur papier) un 

graphique représentant des 

valeurs numériques entrées ou 

calculées. Qu'il s'agisse d'une 

"courbe", d'un "camembert" 

ou de "barres", c'est plus 

"parlant" que des colonnes 

de nombres. Hélas beaucoup 

ont abandonné face à une 

complexe programmation de 

PLOT et de DRA W. 

mation, pour que 100 "points Y" 
représentent la même longueur que 
100 "points X", qui eux sont bien 
réels. Voilà pourquoi les traits verti- 
caux sont deux fois plus fins à l'écran 
que les horizontaux. 
Par défaut l'ORIGINE des points en 
X et Y c'est l'angle situé en bas à 
gauche de l'écran, c'est le point aux 
"coordonnées" 0,0. 
On ne va pas tracer les deux axes 
à partir de ce point car il nous faut 
une petite marge en bas et une autre 
â gauche, pour y inscrire les gradua- 
tions et leurs valeurs chiffrées, ainsi 
que les légendes et unités de ces 
axes X et Y. Pour ces marges une 
"épaisseur" de 50 points sera suffi- 
sante, donc l'origine des axes sera 
aux coordonnées 50, 50. De plus on 
va laisser en haut de l'écran une 
"marge" de 50 points réservée au 
titre, ainsi qu'une autre plus étroite, 
disons 1 points, à droite de l'écran 
afin que le graphe ne "colle" pas au 
bord droit ; ça fait plus propre (voir 
figure). Faisons le bilan : 
L'espace UTILE pour le graphique 
n'est plus que de 640-50-10 = 580 
points en X, et de 400-50-50 = 300 
points en Y. OK ? 
La commande BASIC ORIGIN 
déplace l'origine des coordonnées 
graphiques ; elle va être pratique 
pour simplifier l'écriture du listing. 
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Ainsi nous pouvons déjà tracer nos 

deux axes : 

INK 0,20: INK 1,0 

MODE 2 

ORIGIN 50,50 

DRAW 580,0,1 :'axe X en PEN1 

PLOT 0,0 :'retour à l'origine 

DRAW 0,300,1 : axe Y en PEN1 

Jusqu'ici c'est la partie commune à 

tous les tracés de graphiques X,Y. 

LES TRAITS 

DE GRADUATIONS DES AXES 

Nous abordons maintenant les cons- 
tantes personnalisées de votre pro- 
gramme ; nous devons donc poursui- 
vre notre mode opératoire à l'aide 
d'exemples numériques. 
Fixons d'abord les valeurs extrêmes 
de vos axes, par exemple X peut 
aller de à 180 et Y de à 100. 
On programme alors 
DX=180 : DY=100 
(Si X variait de 2000 à 5000 on 
aurait DX = 3000) 
Pour traduire les valeurs réelles en 
points graphiques il nous faut établir 
deux facteurs multiplicatifs, à savoir 
FX = 580/DX : FY = 300/DY 
Fixons le pas (intervalle) des gra- 
duations des axes : disons un tiret 
toutes les 15 unités sur X et toutes les 

10 unités sur Y 
PGX=15 : PGY=10 

Pour faire nos petits tirets verticaux 
sous l'axe X c'est tout simplement 
FOR N = TO DX 5TEP PGX 
PLOT N*FX,0:DRAWR 0,-5: NEXT 
Idem pour les tirets horizontaux à 
gauche de l'axe Y. 
Deux choses essentielles sont à 
remarquer : 

• On confie à l'ordinateur le soin de 
calculer les positionnements des 
traits. 

• On utilise à la fois les commandes 
à coordonnées ABSOLUES, telles 
que PLOT et DRAW, et celles à 
coordonnées RELATIVES telles que 
DRAWR. 

ETALONNAGE DES AXES 

11 s'agit d'inscrire des valeurs en face 
de nos petits tirets. On va utiliser la 
même méthode que précédemment, 
maïs attention ! Pas question d'opé- 
rer par des LOCATE qui tomberont 
presque toujours "à côté", mais par 
TAGqui permet le PRI NT à partir de 
n'importe quel point de l'écran. 
Deux rappels à ce sujet : une lettre 
ou un chiffre occupe 8 points de 
large sur 16 points de haut (en 



MODE 2). C'est l'angle en haut à 
gauche du "pavé caractère" qui est 
pris en compte par PLOT et TAG. 
Les valeurs numériques seront affi- 
chées par des PRINT USING, mais 
on peut aussi afficher des CHAI- 
NES, par exemple des mois de l'an- 
née. Ces inscriptions devront être 
cenfrées en face de leur trait repère, 
donc elles devront toutes avoir la 
même longueur en caractères. Sup- 
posons longueur=3, soit 3x8 = 24 
points graphiques. En conséquence, 
les TAG sur l'axe X seront décalés 
de 1 2 points à gauche (LEN/2) et de 
10 points vers le bas (= hauteur du 
tiret + 5 de séparation). Pour l'axe 
Y c'est plus simplement un décalage 
à gaucne de 34, c'est-à-dire LEN + 
tiret + séparation. 
Pour afficher des chaînes il faudra 
les mettre en DATA. 
Cela est illustré dans notre pro- 
gramme de démonstration, lignes 
25150 à 25200. 

Remarquez la syntaxe de TAG : le 
TAG, les PLOT, et les PRINT suivis 
d'un POINT-VIRGULE ; ce pour évi- 
ter l'affichage de deux caractères 
graphiques. Et en final le TAGOFF, 
à ne jamais oublier... 
Nous venons de terminer le "gros 
œuvre", on va ajouter quelques fio- 
ritures telles que titres, légendes, 



etc., et il ne restera plus qu'à tracer 
notre graphe et ça, paradoxale- 
ment, c'est le plus facile ! 

TITRES ET LEGENDES 

Il est sage de prévoir la place pour 
deux lignes de titres en haut de 
l'écran. Pour leur positionnement en 
hauteur TAG + PLOT est ici encore 
Comme dès le départ nous avons 
opté pour une présentation soignée, 
le titre et sous-titre seront autocen- 
trés. Idem pour la légende de l'axe 
X, mais avec une différence toute- 
fois : 

d'un graphique à l'autre la légende 
X est immuable, elle est dans le pro- 
gramme, alors que les deux titres 
changent ; ils devront donc être 
entrés au préalable par INPUT 
TIT1S et INPUT TIT2S 
Ces trois textes sont affichés par les 
lignes 25260 à 25300. 
Gros problème pour légender l'axe 
vertical Y : comme notre BASIC ne 
permet pas de faire pivoter un affi- 
chage de 90°, nous allons disposer 
ses caractères les uns sous les autres, 
comme une enseigne verticale. 
Là encore nous conserverons le cen- 
trage haut-bas de la chaîne. Nous 
calculons la hauteur de départ DEP 
(voir ligne 25320) puis un PLOT par 
caractère lu par MtDS. 
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Découpage de J'écran 640 x 400 en 580 x 300 pour le graphe X Y. L'origine 
graphique est amenée à l'origine des axes X et Y. 
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Qoe ques explications : 
La légende LY$ a une hauteur HLY 
points ( = LEN*16). Le point de 
~ezz- serait à la hauteur 300/2 + 
-*lY 2 mais dans la boucle FOR 
N=l TO LEN(LY$) on décrémente 
DEP par PLOT-45,DEP-N*16 : il 
"aut donc, pour conserver le cen- 
"age, augmenter de 1 6 la valeur de 
DEP, d'où DEP=166+HLY/2. 
Rassurez-vous, vous n'aurez pas à 
Tiodifier nos formules pour afficher 
es titres et les légendes d'axes ; 
mais il fallait comprendre nos calculs 
au cas où cette disposition ne vous 
conviendrait pas. 

LE TRACE DE LA COURBE 

(lignes 25360 à 25400) 
Notez que nous avons écrit 
"courbe" au singulier... En effet il 
serait difficile de différencier plu- 
sieurs courbes sur un même graphe : 
par la couleur, pas question en 
MODE 2, quant à tracer en pointil- 
lés rien n'est prévu dans notre 
BASIC. C'est possible mais au prix 
d'une complexité de programmation 
"pas racontable". Il faudrait créer 
un RSX spécial qui serait le pendant 
de la commande DRAW. 

Notre courbe sera en fait une ligne 
brisée joignant tous nos points de co- 
ordonnées. En faire une courbe 
"arrondie" nécessiterait un déve- 
loppement mathématique considéra- 
ble ; risqué sur un micro-ordinateur 
de huit bits, même en assembleur. 
(L'auteur n'est pas un matheux, mais 
si cela vous tente...). 
Notre listing considère que les co- 
ordonnées sont dans un tableau DIM 
V( 100,1) : soit 1 00 "points" maxi ; 
indice = X ; indice 1 =Y. Il y a en 
fait NP points à représenter 
(NP< = 100) et à joindre par des 
DRAW. Tout est alors ultra simple : 
PLOT sur le premier point 
PLOT V(1,0)*FX,V(1,1)*FY 
puis des DRAW au deuxième point, 
jusqu'à NP. 

LA PHASE FINALE 

Une fois le graphique terminé à 
l'écran (nous avons chronométré 
ceux secondes pour afficher axes + 
égendes + courbe), pas question de 
terminer par END ! Sinon nous 
aurions le "Ready" en haut à 
gauche... 

On met le micro en attente d'une tou- 
che ou clavier (ligne 25420) : 



si l'on pressé E l'image est enregis- 
trée en binaire ; si c'est une autre 
touche il y a retour en MODE 1 avec 
les couleurs habituelles, et END. 
On peut aussi prévoir I pour Impres- 
sion, c'est-à-dire un CALL ou un 
GOSUB vers une routine de HARD 
COPY d'écran. 

Le fichier écran obtenu par E (17 
kilo-octets) peut avoir trois usages : 

a. A défaut d'imprimante on visua- 
lise les graphiques archivés, par 
LOAD nom du fichier. On peut aussi 
prévoir un programme BASIC très 
court qui les présenterait successive- 
ment à l'écran. 

b. Un tel fichier binaire est chargea- 
ble par certains logiciels de DAO, tel 
CHERRY PAINT qui lui aussi ne con- 
naît que le MODE 2. Vous pourrez 
alors vous livrer à toutes sortes de 
fioritures : titres avec d'autres carac- 
tères, annotations sur la (ou les) 
courbe, quadrillage, etc. Pensez 
alors à renommer le fichier non plus 
en .BIN mais en .C-P avant de le 
charger. Après modifications (ou 
non) vous pourrez ensuite l'enregis- 
trer et l'imprimer en format 21x27 
cm. (Ce que nous avons fait). 

c. A défaut de logiciel DAO on peut 
également obtenir de superbes 
copies sur imprimante avec des logi- 
ciels prévus pour la HARD COPY, 
par exemple TASCOPY de "Séma- 
phore" ou PRINTER PACK II de 
"Pride Utilities". 



CAS PARTICULIERS 

Notre exemple était banal et des 
plus courants, mais votre problème 
est peut-être bien plus complexe. 
Nous allons prouver qu'il vous sera 
facile de tout faire en bidouillant cer- 
taines lignes : 

Va leurs cumulées. Ajouter une 
colonne au DIM qui devient DIM 
V(100,2). Cette colonne totalisera 
les valeurs de la colonne n° 1 (jadis 
Y). 

FOR N = l TO NP 
V(N,2) = V(N-1,2) + V(N,1):NEXT 
Pour le tracé de la courbe on rem- 
placera dans le listînq les V(N,1) par 
V(N,2) F 

Origines non nulles. Au lieu de par- 
tir de zéro supposons que l'axe Y 
aille de 30 à 130. Posons ORY = 30 
(origine Y). DY vaut 130-30= 100. 
Le tracé des tirets ne change pas. 
Pour l'étalonnage de l'axe Y il suf- 
fira de modifier la fin de la ligne 
25230. 

...PRINT USING "###";N 
+ ORY; 

Reste le tracé de la courbe : 
Ligne 25370 : V( 1 , 1 ) * FY devient (V 
(l,l)-ORY)*FY 

Ligne 25390 : V(N,1)*FY devient 
(V(N,1)-ORY)*FY 
Ça marche aussi avec une origine 
négative. 

LES ECHELLES NON LINEAIRES 

Le cas fréquent (si j'ose dire) est une 
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échelle logarythmique. Par exemple 
pour représenter la réponse en fré- 
quence d'un appareil Hi-Fi entre 20 
et 20000 Hertz sur l'axe des X, il 
serait irréaliste de conserver une 
échelle linéaire, car une variation de 
50 Hertz vers 20 est importante mais 
infime vers 19000... 
Pour mieux comprendre la progres- 
sion logarythmique voici les LOG10 
de 500, 1000, 2000 et 4000 : 2,7 
3,0 3,3 et 3,6. Donc une progression 
linéaire sur l'axe de 0,3 à chaque 
fois que l'on double. On va donc 
aller de LOG10(20)= 1,3 à LOG10 
(20000) = 4,3. D'où un DX = 4,3-1,3 
= 3,0, un ORX de 1,3 et le facteur 
FX toujours égal 580/DX. 
Tracer la courbe est très facile : 
2 lignes à modifier : 
25370 PLOT(LOG10(V(1,0))-ORX) 
*FX, V(1,1)*FY 

25390 DRAW(LOG10(V(N,0))- 
ORX)*FX, V(N,1)*FY 
En revanche beaucoup de change- 



ments pour graduer et étalonner 
l'axe X, car on ne peut utiliser un 
STEP PGX. Nous voulons inscrire les 
multiples de 2,5 et 10 : le plus sim- 
ple est de construire une ligne de 
DATA où ces valeurs vont être dou- 
blées, une fois en nombre, une fois 
en chaîne de trois caractères. 
25085 DATA 20," 20", 50, " 50", 
100, 100,500,500, 1000, "1 K", 
2000, "2 K", 5000, "5 K", 10000, 
10K, 20000, 20K 
Un premier passage par STEP 2 
avec READ F pour tracer les tirets : 
25 1 1 PLOT(LOGl O(F)-ORX) * FX,0 
:DRAWR 0,-5: NEXT 
Ensuite RESTORE 25085 pour tout 
lire 

25180 FOR N = 1 TO 10: READ F: 
READ A$ 

25190 PLOT(LOG10(F)-ORX)*FX 
-12,-10:PRINT A$; 
Et le tour est (enfin) joué. Signalons 
au passage que l'auteur ne connaît 
aucun logiciel graphique du com- 



merce qui propose les échelles 
logarythmiques... Et là c'est gratuit, 
et en très peu de lignesH 



CONCLUSION 

Par la numérotation des lignes 
vous avez deviné que ce 
"module en 25000" sera sauve- 
gardé par SAVE "XY",A afin 
d'être récupéré par MERGE 
dans vos programmes. Ceci fait 
vous modifierez les valeurs des 
constantes et les légendes d'axes 
avant le SAVE de l'ensemble. 
Ce sous-programme facile à per- 
sonnaliser ne représente que 
1240 octets (REM compris), et 
conférera à vos programmes 
une option graphe directement 
accessible. 



L 



isting 



10 ' DEMO DE GRAPHE X-Y - Michel Archamb 

ault 7/B7 - AMSTRAD CPC (tous) 

20 DEFINT I-N:DIM V(10B,1) 

30 ' ENTREES DE VALEURS BIDON 

40 DATA 5, 60, 1 5, 74, 32, 53, 58, 38, B0, 69, 100 

, 45, 115, 39, 128, 52, 140, B9, 160, 74, 175, 51 

50 NP=lls ' Nombre de Points valeurs 

60 FOR N-l TO NP:FOR J=0 TO 1 

70 READ V(N,J)iNEXT:NEXT 

80 TITl*="MICRO-INFORMATIQUE : lnvestiss 

ement + Consommable" 

90 TIT2*="PREMIER SEMESTRE 19B7" 

100 GRAPH*="DEPEN87A" : ' Nom du fichier e 

cran 

110 GOSUB 25000 

120 INK 0,1:1NK 1,24:M0DE 1 

130 END 

25000 ' TRACE DES AXES 

25010 DEFINT I-N 

25020 INK 0,20:INK l,0sMODE 2 

25030 ORIGIN 50,50 

25040 DRAW 5B0,0,1:PLOT 0,0:DRAW 0,300,1 

25050 ' CONSTANTES 

25060 DX = 1B0:DY=100 

25070 FX=580/DX:FY=300/DY 

250B0 PGX=15:PGY=10- 

25090 ' REPERES SUR X 

25100 FOR N=0 TO DX STEP PGX 

25110 PLOT N*FX,0:DRAWR 0,-5:NEXT f/j) 

25120 ' REPERES SUR Y 

25130 FOR N=0 TD DY STEP PGY 

25140 PLOT 0,N*FY:DRAWR -5,0 s NEXT 

25150 ' ETALONNAGE X 




25160 TAG 

25170 DATA JAN ,FEV,MAR, AVR.MAl , JUN, JUL 

25180 FOR N=0 TD DX STEP PGX*2 

25190 READ AïsPLOT N*FX-12,-10:PRINT A*s 

25200 NEXT 

25210 ' ETALONNAGE Y 

25220 FOR N=0 TO DY STEP PGY 

25230 PLOT -34,N*FY+B:PRINT USING ■'###"; 

N| 

25240 NEXT 

25250 TAGOFF 

25260 ' TITRES 

25270 LTl=LEN(TITl*)*B:TAG:PLOT ( 590-LT1 

)/2,345:PRINT TITl»; 

25280 LT2=LEN(TIT2*)»8:PL0T (590-LT2)/2, 

325:PRINT TIT2»; 

25290 ' LEGENDE AXE X . 

25300 LXS="M I S":LLX=LEN(LX*)*B:PLOT 

(590-LLX)/2,-30IPRINT LX*i 

25310 • LEGENDE AXE Y 

25320 LY*="KILO FRANCS HT" : HLY=LEN( LYt ) » 

16:DEP=166+HLY/2 

Z5330 FOR N=l TO LEN(LYÏ) iPLOT -45.DEP-N 

*16 

25340 PRINT MIDS ( LY* ,N, 1 ) s 

25350 NEXT: TAGOFF 

25360 ' TRACE DE LA COURBE 

25370 PLOT V(1,0)*FX,V(1,1)*FY 

25380 FOR N=2 TO NP 

25390 DRAW V (N,0 ) *FX , V(N, 1 ) «FY 

25400 NEXT 

25410 ' FINAL et Enregistrement par E 

25420 Rt= WHILE Rt= R*=UPPERS ( INKEY* 

) :WEND 
ÇT 25430 IF Rt="E" THEN SAYE GRAPH* , B , &C000 
,«,4000 

25440 ORIGIN 0,0 
25450 RETURN" 
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FORUM DES LECTEURS 



Voici une nouvelle rubrique dans CPC. Cet emplacement ne demande qu'à croître et c'est pourquoi nous lan- 
çons un appel à vous, lecteurs. En effet, nous vous proposons une participation active à un jeu de questions- 
réponses entre les lecteurs. Le système est simple : chaque mois, nous aurons une ou plusieurs demandes concernant 
un problème rencontré sur un logiciel du commerce, ou publié dans CPC ou même des questions concernant votre 
machine préférée : l'Amstrad CPC. Nous insistons sur le fait que la question doit être générale, ceci afin d'intéres- 
ser le plus grand nombre. Les réponses seront quant à elles publiées le mois suivant. Elles devront être les plus 
claires possible. 

Vous avez sûrement des quantités de questions à poser, c'est donc le moment de nous écrire en précisant sur l'enve- 
loppe : "CPC - Forum des lecteurs". Nous attendons votre courrier de pied ferme ! 



I MI 




MEWBTRflDÏISQITS 



**J£fM-§f!Èi â(£ * DISQUETTES AMSO FT * CASSETTES * HEHSTRAD 
() 10 DISQUETTES 3" AMSOFT DONT 1 NUMERO DE NEWSTRAD 
20 DISQUETTES 3" AMSOFT DONT 2 NUMEROS DE NEWSTRAD 



FRS 



240 

470 FRS 
50 DISQUETTES 3" AMSOFT D0MT 3 NUMEROS DE NEWSTRAD .'li30 FRS 
O 20 CASSETTES C. 15 DONT 1 NUMERO DE NEWSTRAD . 140 FRS 
Joindre 19 Frs pour frais de port. Possibilité de commander plu- 
sieurs lots. Cochez l'option désirée. Retournez ce bon et votre 



règlement à MICRO PASSION 
Nom 



33 BIS RUE CARM0T 
Adresse 



77400 THORIBNY. 



Ville : 



COUTEAU IEWST1AB 31 Ï1RS SEULEMENT 



Revendeurs, nous consulter. 



H^M™n rôn St ^?. n °T flU ma 9 azinB magnétique mensuel destiné aux utilisateurs 
d AMSTRAD CPC. Edito, Info, Test softs, Test périph. Initiations au basic et atr 
langage machine, Trucs et astuces, Aide «ux aventuriers perdus, etc.. 
Newstrad, c'est aussi des softs d'enfer, rapides et originaux. Newstrad c'est 
.Elus de 300 Kilos octets par mois II A lors abonnez-Vous I I I 12 numéros par an.. 

Pour 1 mo s i K7.31 D. 55 FRS. No m Env0VB; VDtre r £ al .^ 

Pour 3 mois î 93 165 FRS. Adresse à MICRO-PASSION 

Pour 6 mois, 183 329 FRS 33^bis rue Carnot. 

Pour 1 an : 340 605 Frs. Ville 77400 THORIGNY. 

Cocher l'option désirée. Je m'abonne à partir du numéro () 1. () 2. 3 
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Pour ceux qui utilisent la 
nouvelle version de 
SAVECRAN (CPC n° 30) ou 
le REPONDEUR 
TELEMATIQUE, la liaison 
série CPC MINITEL par le 
port imprimante pose un 
important problème de 
connectique. En effet les 
nombreuses connexions et 
déconnexions des câbles 
risquent à plus ou moins 
long terme d'endommager 
le bord de carte du port 
imprimante. Je vous 

ftropose donc de réaliser la 
iaison série CPC MINITEL 
par le port K7 de votre 
micro. Votre imprimante 
pourra rester connectée 
définitivement à son port 
d'attache. Les schémas 
suivants décrivent les 
modifications à effectuer 
pour un 464. C'est 
d'ailleurs sur ce type de 
CPC que le travail sera le 
plus simple. Pour un 6128 
ou un 664, cela sera un peu 
plus compliqué. (Pour ma 
part, j'ai modifie deux 464 
et un 6128 et tout 
fonctionne sans problème 
depuis plusieurs mois...!). 

ATTENTION !! Pour effectuer les 
modifications, il faut ouvrir le CPC 
alors si votre appareil est encore 
sous garantie attendez un peu. 



MATERIEL NECESSAIRE 

- 1 PRISE DIN 5 BROCHES 
FEMELLE (châssis) 

- 2 PRISES DIN 5 BROCHES 
MALE 

- 1 CABLE 3 CONDUCTEURS 

- 1 CABLE 8 CONDUCTEURS 

COMPOSANTS 
ELECTRONIQUES 

- C = 100 nanofarads.. ..(mar- 
ron noir jaune) 

- R = 2200 Ohms (rouge 

rouge rouge) 

OPERATIONS 

Un maximum de soin doit être 
observé pour mener à bien cette réa- 
lisation. Tout énervement ou précipi- 
tation est donc à éviter. Il est con- 
seillé de taper les modifications des 
routines machines de SAVECRAN 
nouvelle version et du REPONDEUR 
TELEMATIQUE avant d'entrepren- 
dre l'opération de votre CPC. 
Pour le CPC 464 (Se reporter aux 
figures 1 et 2) les cotes fournies pour 
l'implantation de la DIN et de ('IN- 
VERSEUR sont données à titre indi- 
catif et peuvent être modifiées à 
votre guise (attention, il n'y a pas 
beaucoup de place). 
11 Ouvrir votre CPC avec calme. 

2) Débrancher le connecteur 
clavier. 

3) Débrancher le connecteur 
magnéto. 



Liaison série CPC HIHITEL 



par le port 



K7 



fig.I 




Clavier du CPC 464 
vu de l'intérieur 



Connecteur 
Magnéto 



Cable 8 fils a 
coller au fond 
du boitier 



Connecteur 
clavier 



fig.2 
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Prise din 5 broches 
vue cote soudures 



4) Présenter le clavier comme sur la 
figure 1 sur une table. 

5) En calquant la figure 3, percer 
le trou de la DIN (faire un avant-trou 
avec un foret de 3 ou 4 millimètres 
puis percer à 1 et enfin amener au 
diamètre final à la lime ronde). 

6} Effectuer la découpe de l'inver- 
seur à glissière (percer plusieurs 
trous puis ajuster à la lime). 

7) Monter la DIN et l'INVERSEUR 
(coller ou visser). 

8) Préparer le câble 8 fils et le col- 
ler au fond du clavier (voir fig. 1). 
Seuls 6 fils sur les 8 existants seront 
utilisés pour l'instant. 

9) Couper les fils BLEUS et VERTS 
du connecteur magnéto à environ 
2 cm de l'extrémité de celui-ci, puis 
câbler suivant le schéma de la figure 
2. C et R sont à souder directement 
sur la DIN. Le + 5V et le -5V sont à 
prélever sur l'alimentation de la 
LED. Le + est le fil rouge, le - est le 
fil noir. Utiliser le câbFe 8 conduc- 
teurs collé au fond du boîtier pour 
effectuer la liaison entre la DIN 
femelle et les fils BLEUS ET VERTS 
coupés. Le raccordement des fils 
entre eux se fait par épissures sou- 
dées et isolées à l'aide de vernis. 

10) Après vérification du câblage 
refermer le CPC sans le visser. 

1 1) Confectionner le câble de liaison 
CPC-MINITEL (voir fig. 4). 

12) Après une dernière vérification 
du câblage passer aux essais. 

ESSAIS 

1) Mettre l'inverseur sur la position 
adéquate. 

2) Brancher le cable de liaison 

Sî vous avez effectué les modifica- 
tions des routines vous pouvez revis- 
ser le boîtier du CPC sinon il faut 
revoir le cabiage ou les modifica- 
tions logicielles. 

MODIFICATION D'UN 6128 
(Novices s'abstenir) 

Les modifications entraînent une 
manipulation du circuit imprimé ; il 
faudra donc veiller à ne pas endom- 
mager la nappe reliant le clavier au 
circuit (fragile). 

1) Ouvrir le CPC (toujours avec 
calme !!). 

2) Repérer le circuit intégré portant 
la référence 8255. C'est un gros cir- 
cuit à 40 pattes. (Voir fig. 5). 

3} Retirer les vis au circuit imprimé. 

4) Débrancher le fil de masse 
reliant le circuit au lecteur de disque. 

5) Retourner le circuit imprimé et à 
l'aide d'un cutter couper la piste qui 
arrive à la patte 25 du 8255 (fig. 7). 



10 
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6) Revisser le circuit imprimé. 

7) Repérer les pattes 7, 12, 25 et 
26 du 8255. 

8)Câbler comme sur la figure 6. 

9) Soucier le condensateur entre les 
broches 2 et 3 de la DIN 
1 0) Refermer le boîtier sans le visser. 
1 1 ) Confectionner le câble de liaison 
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(fig- 4). 

1 2] GOTO ESSAIS 

MODIFICATIONS SAVECRAN 
(Nouvelle version CPC n° 30) 

10 MEMORY &9FFF 

20 LOAD"SAVECRAN" 

30 AD = &A001 

40 FOR 1= 1 TO 6:READ AS:POKE AD 

VAL ("&" + AS):AD = AD+l: 

NEXT 

50 POKE &A1B6.&F6 

60 FOR I=&A1BD TO &A1BF- 

POKE I,&1F:NEXT 

70 DATA 06,F6,3E,20,ED,79 

BO POKE &A22E,&C9 

90 POKE &A249,&62 

100 SAVE "SAVECRAN. BIN",B, 

&A001.&6A3 

1 10 END 

MODIFICATION SER1.BIN 

(Répondeur) 

Si vous possédez la routine machine 
SER1.BIN modifiée (CPC 22 page 
37 article sur fond bleu) tapez en 
ligne 10 A = &193 



10 A = &179 

20 MEMORY &9FFF:L0AD"SER1 

BIN" 

30 AD = 40960:FOR 1 = 40960 TO 

41036:READ AS:POKE l,VAL("&" + 

AS):NEXT 

40 FOR 1=41232 TO 41500 

50 IF HEX$(PEEK(I)) = "40 

HEXS(PEEK(l+l)) = "AO" 

POKE l,&42 

60 NEXT 

70 FOR 1 = 41232 TO 41500 

80 IF HEXS(PEEK(I)) = "17' 

HEX$(PEEK(I+ 1)) = "17" THEN POKE 

l+l,&C9:l = 41500 

90 NEXT 

100 SAVE"SER1.BIN",B,&A000,A 

101 END 

1 10 DATA D5,E5,F3,21,00,A1, 36,00 

06,07,OE,00 

1 1 1 DATA 23, 1 F,DC,2 1 ,A0,CB, 1 6, 1 

F7,23,79,E6 



AND 
THEN 



AND 



120 DATA01,1F,CB,16,23,36,01,18 
04,F5,0C,F1 

121 DATAC9,21,00,A1,01,00,F6,16, 
0A,3E,00,CB 

130 DATA 1E,1F,1F,1F,ED,79 CD 42 
A0,23,15,20 

131 DATAF0,37,E1,D1,FB,C9,C5 01 
6E,00,0B,78 

140 DATA B1,20,FB,C1,C9 

MODIFICATION DU BASIC 
(Pour le REPONDEUR) 

En ligne 80 du BASIC ajouter OUT 
&F600,32 

C'est fini. Si quelques points vous 
paraissent obscurs laissez-moi un 
message sur mon répondeur 
(29-60-00-10) mais soyez assez 
précis dans vos questions. 
BONNE BIDOUILLE. 



► INFORMATION A PROPOS 
DE SAVECRAN (CPC n» 30) 

Certains d'entre vous ont constaté un 
plantage au moment d'un hard copy 
(fonction "I" de SAVECRAN). Ceci n'est 
pas dû à un problème logiciel, mais à un 
mauvais câblage de la prise DIN de 
• otre liaison CPC MINITEL 
REMEDE : assurez-vous que les points 2 
et 4 de votre prise DIN ne sont pas 
strapés. 



fig, 6 
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• Marque 

et image de marque 

Tout d'abord merci de vos témoi- 
gnages de sympathie. Cela ne pou- 
vait que nous faire plaisir étant 
assez inattendu. 

Il va sans dire que, n'en déplaise à 
Marion Vannier PDG d'AMSTRAD 
et à son staff, nous n'avons pas l'in- 
tention de modifier notre titre de 
presse. Nous sommes déjà très éton- 
nés qu'à l'époque aucune tentative 
n'ait été effectuée pour nous interdi- 
re I 

Nul n'ignore maintenant que le PDG 
d'Amstrad est liée aux nouvellles 
revues {d'autant que l'INPI révèle 
que c'est Amstrad qui a fait le dépôt) 
et entend en contrôler l'information 
(Sic SVM !). 

Au nom de l'image de marque 
d'Amstrad ! 

Seulement un journaliste du cru Ams- 
trad manie, la vulgarité, la désinfor- 
mation et le dénigrement sur ses con- 
currents sans signer son article. Sûr 
que Marion Vannier a dû en pâlir ! 
Au nom de l'image de marque bien 
sûr ! 

Alors que dans SVM Marion Van- 
nier expose sa position sur la presse, 
c'est dans l'un des journaux dont elle 
contrôle l'information qu'elle donne 
une version différente de ses propos. 
C'est plus facile que de répondre 
dans SVM où les journalistes con- 
naissent leur sujet ! 



• AURALOG: votre compatible PC va 
pouvoir vous épauler dans un domaine 
assez complexe : l'aide à la décision. 
Grâce à un logiciel intitulé AURA-PREVI, 
cette grande société offre à tout décideur 
la modélisation d'un problème débou- 
chant sur un ensemble de scénarios pos- 
sibles. Le développement du programme 
à l'aide de Prolog a permis d'intégrer 
des concepts de l'intelligence artificielle. 
Pour tout renseignement : AURALOG - 
22, rue Emile Baudot- 91 120 Palaiseau. 



Notre Direction écrit à Marion Van- 
nier PDG d'Amstrad. 

Madame, 

La presse n'appartient pas seulement aux 
propriétaires des titres, Amstrad dans 
votre cas. Elle appartient aussi à ses lec- 
teurs. Ce sont eux qui sont les actionnai- 
res de la presse, cela en versant les quel- 
ques francs pour l'achat de leur mensuel. 
Ce sont eux qui font l'indépendance de 
cette presse et assurent à notre pays une 
structure d'information indispensable. 
Encore faut-il que chacun dénonce les 
raids sur les journaux indépendants. C'est 
le rôle de ceux pour qui l'information 
représente une responsabilité et pas seule- 
ment un gagne-pain ! 
A la veille de l'application de l'Acte uni- 
que européen, chacun doit aider la presse 
à se défendre et à vivre au nom du plura- 
lisme indispensable à notre société. 11 en 
est de même dans la presse spécialisée. 
Dans SVM, vous affirmez que les titres 
AMSTRAD sont liés à vous. Ceci se con- 
firme par le fait que Amstrad PC mag est 
déposé à l'INPI par votre société, pour ne 
citer que celui-là. Vous affirmez vouloir 
contrôler l'information, ce qui peut paraî- 
tre surprenant. Sans doute au nom de 
l'image de marque d'Amstrad. 
Il y a tout de même un chemin entre l'épi- 
cerie et la presse ! 

Sous couvert d'une rencontre avec le 
rédacteur de l'une des revues mentionnées 
vous affirmez désormais le contraire de vos 
propos dans SVM. Soit ! Après avoir tenté 
de faire supprimer notre titre AMSTAR, 
vous prêtez votre nom à un transfuge 
d'Hebdogiciel pour mener une violente 
attaque, contre toute déontologie, en des 
termes vulgaires, avec des informations 
non vérifiées, cela contre notre société et 
nos titres. 

Sans doute au nom de l'image de marque 
d'Amstrad. 

Si tel est le cas, vous n'avez pas fait le bon 
choix, car ce qui fait l'image de marque 
de votre société et de vous-même, c'est 
bien la presse. Toute la presse. Mais pas 
la vôtre ! 

Recevez, Madame, mes salutations distin- 
guées. 

S.F. 



• LE LECTEUR PACE : vous trouvez 
les disquettes 3" trop chères ? Vous avez 
totalement raison. Lorsque l'on voit le 
prix des 5" (de 2 à 7 francs), on ne peut 
qu'enrager de devoir dépenser au moins 
25 francs pour une misérable disquette. 
N'y a-t-il point de recours ? Si bien sûr : 
il ne reste qu'à adapter un deuxième lec- 
teur au format adéquat. Le lecteur 
5" 1/4 présenté ici est de la marque 
Pace. Son habillage est constitué d'une 
coque métallique de bon aloi. Sur la face 



avant, on remarque une led signalant la 
mise sous tension. A l'arrière, deux inter- 
rupteurs se disputent la place disponi- 
ble ; l'un est utilisé comme commutateur 
ON/OFF et l'autre permet de sélection- 
ner le mode 40 ou 80 pistes. 
Signalons également que le lecteur est 
livré avec une disquette contenant un 
logiciel de transfert des fichiers MS-DOS 
(ou PC-DOS) vers le format CP/M +.11 
ne reste plus qu'à ajouter qu'il existe un 
modèle PCW et que fe lecteur est dispo- 
nible chez Wings Micro Diffusion - 57, 
rue de Charonne - 7501 1 Paris 
(2390 F TTC). 
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GAGNER AU LOTO 

un rêve qui peut devenir 
réalité avec 

LOTO - MATIC 

le programme qui vous révèle 

tout ce que vous devez savoir 

pour : 

• trouver facilement les numéros 

qui ont le plus de chance de sortir 

• établir scientifiquement 
les grilles les plus performantes 
grâce aux tests du Lotoscope 

• contrôler sans peine 

les résultats de vos jeux 

Editions écran et imprimante 

Documentation détaillée 

+ CADEAU contre 4 timbres 

INFORMATIC Applications 

B.P. 78 -67800 BISCHHEIM 

Tél. 88.33.58.85 
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• CRL î en voiture avec Road Warrior, 
un jeu d'arcade qui vous met au volant 
de monstres allant de la Ferrari à la 
Volswagen. Puisque de nombreux 
gêneurs vous entourent, votre armement 
est conséquent. La simulation respecte 
même les pannes d'essence et il faudra 
avoir un œil sur la jauge pour ne pas finir 
le jeu trop rapidement. (Sortie en mars). 

J*Sfaitoir du. 



\ 





: cette toute nouvelle société 
I française (oui monsieur I) annonce trois 
logiciels d'aventures sur Amstrad : Fro- 
zarda, Rat Connection, Marmelade et 
Transformateur 3000, un utilitaire de 
copie de cassettes à disquettes. 



ENFIN UN BUREAU POUR VOTRE 
ORDINATEUR A 490 F T.T.C.* 

• Structure rigide en bois de 35 kgs • Large 
espace disponible * Espace de rangement pour 
cassettes • Belle finition d'ensemble. Peinture 
anti-reflets, disquettes et papier • Livré en kit. 
Grande facilité de montage • Dimensions. Hau- 
teur : 80 cm. Longueur : 77 cm. Profondeur : 
61 cm. 

( ECRAN 

IMPRIMANTE 




' Frais de port en sus. 

REVENDEURS. NOUS CONTACTER 
~~ BÔ~NDË"CÔM MANDE Â"RËTOTJRNÏR"A"; 
S.N.P.P., 39, rue Lafayette 
75009 PARIS - Tél. : (1) 48.74.40.61 



Nom 



Prénom 



.. bureaj Ix) poor ordinateur personnel au prrx unitaire de 



Je commande 

490 F T.T.C. 

Ci-joint mon règlement par chèque augmenté de 1 60,00 F de frais de port par article, 

soit au total de T.T.C. 
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PLUS 

JAMAIS 
CA 



FICHIER 



\ 



SIMPLENÏïV 



.fichier de 65000 caractères 
.256 caractères »axi ptr fiche 
.De 1 à 99 zones par fiche 
.Manipulation du fichier à travers des 
■ FORMULAIRES KCRAHS" parante trab] es 
.Modification -Visualisât ion-Suppression 
Sur Sélection MONO FICHE .MULTI CRITERE;, 

Sur l'ensenble du FlCHIHi 
.Fonction de tri du Fichier 

FICHIER SIMPLE 

répond à TOUS vos besoins : Fichier stock 

Fichier clientèle, documentaire, etc ... 



Rens et Doc contre 2 timbres 
Comande accompagnée de ïotre règlement 

M.L.C des Cosbrailles BP 03 

Montaigut 6370C 5t [loy Les Bines 

(liens iRoberto Tel 1S.U5.92.8U5) 
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ARRAZ EDITIONS : nous 
annonce un logiciel très original (dans 
son sujet) le Sida et nous. Ce programme 
a été conçu en liaison avec des spécia- 
listes de la maladie, ceci afin de coller 
à la réalité scientifique. En effet, il s'agit 
d'une méthode de prévention fonction- 
nant sur un système d'apprentissage par 
l'erreur. De plus, il existe une autre rai- 
son pour acheter ce logiciel : l'argent 
récolté sera reversé intégralement à la 
Recherche contre le SIDA. (Sortie du 
logiciel en avril). 




j\tfée ' 




DEBUGGER «Et fait pour 
celui qu i prograB«e en 
langage machine ou qui 
envisage de s'y mettre . 
DEBUGGER c 'est : 
«Un désassembleur. 
«Un éditeur: 256 octets 
directeaent accessibles 
«Un re logeur qui permet 
de décaler un programme 
ou presque des modifications à faire 
ttant de visualiser, instruction 
le déroulement de vos programmes 



Vous désirez un 

[iciel de DAO 

exploite la 

alité du CPC 

6 12S ? 

KAFH-SET c'est 




Une f eui lie de 

ravall jusqu'à 
5 écrans direc- 

emen t access i - 
blés * Un générateur de sprite * Des outils de des- 
(aérographe, arc de cercle, ...) * Des fonctions 
graph>ques (rotation, incrustation, copie, inversions, 

..) « Une loupe * Le nu 1 1 i f enét r âge * Une fonction 

UNDO" * Une sortie sur imprimante paramétrable (du 
timbre poste jusqu'au poster) * ... 
GRAPH-SET est simple d'emploi ( i cônes , sous-menus ) 



ntirn.iii:. 

;#iÉBÊi:*a:; 
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er un catalogue t lire 
le contenu d'une disqu 
DATA d'une manière su 



DISCKHELP est un 
mon i teur de dis 
quette . t 1 perme 
1 'accès direct 
chaque octet d ' 
e d îsquette e 
nsi.de : 
Récupérer un 
ogramme ef f ac 
Cacher , local i 
r un fichier 

r e c t i fier 



CI. ASSISTANT est un 
giciel de dessin de 
rcuits imprimés. 

* Tai 1 le 600 . b40 mm 

* Simple, double face 
2 échelles * Sortie 
r impr ! mante * Bi- 
bliothèque « Généra - 

eur de syrabo les * 2 
e r s l o n s . 




-x§ 



J Ville. 



Veuillez me faire parvenir : 

— ' Une documentation (joindre 3f 70 en timbre) 

6128/664 295 f 

6128 uniquement 375 f 

6128/664 175 f 

6128 uniquement 550 f 

800 f 



!— ' DEBUGGER 

LJ GRAPH-SET 
DISCKHELP 
Cl Assistant 
Cl Assistant + 
frais de port 20f 



D 
D 
D 
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• LORICIELS : qu'y a-t-il de commun 
entre Armand Jamot et Loricîels ? Les 

chiffres et les lettres bien sûr. Ce logiciel 
a été présenté lors de la 13* coupe des 
champions qui se déroulait du 28 au 31 
janvier dans la principauté de Monaco. 
Les hits nouveaux sont arrivés, le tome 6 
vous propose trois programmes d'ar- 
cade : The last mission, Flash et un logi- 
ciel inédit Atomic Drive, une sorte de 
Pac-man automobile. 
Engagez-vous ! Loricîels recrute trois 
programmeurs et deux graphistes. Quel- 
ques conditions requises : savoir pro- 
grammer en C et/ou en assembleur, con- 
naître le marché de la micro-informatique 



et, enfin, posséder une imagination 
débordante. Envoyez vos CV à M. Mar- 
chand - LORICIELS - 81, rue de La Pro- 
cession - 92500 Rueil Malmaison. 




scia ri IK 



• SAARI ; deux nouveaux logiciels de 
paie voient le jour. Une version Stan- 
dard (1.0) et une version Major (3.0). 
L'ergonomie, la facilité d'utilisation ont 
été augmentées grâce à la couleur et au 
multi-fenêtrage. Ces programmes tour- 
nent avec tout compatible MS-DOS pos- 
sédant 640 Ko de RAM et équipé d'un 
disque dur. (Prix : version Standard 
4900 F HT -version Major 9500 F HT.) 




• LA MARQUE JAUNE: vendredi 22 

janvier, gare de l'Est. Un train très par- 
ticulier stationnait en effet puisqu'il était 
composé de voitures bleues à l'effigie de 
la compagnie des Wagons-Lits. Agatha 
Christie et Hercule Poîrot n'étaient pas 
loin. Ce cher Hercule aurait très bien 
évolué dans ce milieu : ici tout n'était 
qu'ordre et beauté, luxe, calme et 
volupté, Mais puisque même les rêveries 
nostalgiques ont une fin, un homme chut 
d'un wagon. Ce dernier resta impassi- 
ble, insensible au drame qui se dérou- 
lait sous ses fenêtres dont le pourtour 
était encadré d'un rideau qui, ma foi, 
aurait fait belle figure dans un salon ély- 
séen. Presque aussitôt, un attroupement 
se forma, des photographes jaillirent de 
nulle part ou d'à côté et se mirent à fla- 
sher à l'aide d'instruments évoquant 
l'élégance subtile d'un projecteur de 




rayons "X". Un policier que l'on aurait 
pu croire plus vrai que nature s'il n'avait, 
été aussi faux qu'un autre qui le serait 
tout autant, agitait en vain son imper- 
méable gris et ses mèches blondes. En 
vain, puisque à peine écroulé, l'homme 
mort au quaî ne respirait même plus. Les 
brancardiers firent alors leur office et 
transportèrent le corps vers un monde 
meilleur. 

Nous nous installâmes confortablement 
autour de notre table (réservée certes, 
mais qui allait s'enharair au cours de la 
soirée). Sans même un signe de la main, 
le convoi se mit en marche d'un pas tota- 
lement circulaire. A l'intérieur des 
wagons et particulièrement au piano 
bar, tel un surplus de vapeur dans une 
cocotte-minute, l'angoisse pressurait l'at- 
mosphère dans une proportion seule- 
ment appréciable par qui a eu un jour 
la révélation des calculs thermodynami- 
ques concernant l'état d'un système 
fermé. Cette sourde étreinte d'un doute 
exacerbé se manifestait par le tremble- 
ment nerveux qui agitait mon genou 
droit. Mille questions se précipitèrent 
dans ma tête à la manière de particules 
sub-mîcrocospiques projetées sur un 
écran par la force conséquente et non 
moins magnétique d'un cyclotron. Je 
compris plus tard que nous n'étions pas 
embarqués pour le tournage d'un 
remake de meurtre dans l'Orient Express 
version moldo-slovaque, mais bien dans 
une séance de thérapie ludique et collec- 
tive que les anglophiles acharnés persis- 
tent à appeler "Murder Party". Un 
détour par les caves d'une marque de 
Champagne célèbre, dont le nom s'il doit 
rester anonyme n'en présente pas moins 
une forte homonymie avec le mot 
"merci", n'apporta pas grand-chose à 
l'enquête, si ce n'est la satisfaction gou- 
lue a'inbiber d'encore un peu plus d'al- 
cool mon organisme presque saturé. 
Malgré mon grand trouble, je réussis à 
saisir quelques bribes d'un discours 
cohérent dans le brouhaha permanent 
qui s'organisait comme un défilé de 
CGTistes marchant de Bastille à Nation. 




Dès lors, l'annonce d'un nouveau pro- 
duit de la société Cobra Soft m'apparut 
comme une illumination dans ce délire 
baroque : il s'agissait de "La maraue 
jaune" dont le titre a lui seul fait perler 
une larme d'émotion sur la joue ridée du 
bédéphile qui se respecte. 
Ce programme comprend en son sein un 
pochoir délicatement prédécoupé dont 
l'utilisation malveillante va encore pro- 
curer un surcroît d'activité aux les per- 
sonnes chargées du nettoyage de nos 
murs citadins. Les éditions sus-nommées 
auraient également du carton dans leurs 
projets puisque l'on parle d'un jeu de 
table (les Ripoux) organisé autour du 
thème ci-avant mis entre parenthèses. 
Dernier somme (euh, produit !) en vue : 
l'organisation de jeux de rôle, grandeur 
nature et tout, et tout.. Ici Blake, à vous 
Mortimer. 
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LE PROGRAMME 
MISSIVE 

^*AAA*AAAAAAAAAAAAAAAA*AAAAAAAAAAAAAAA^ Georges HECK£ft^^*W^ ^ ^***^******A^***^ft^^WM^MI 



Précisons-le d'emblée, 
MISSIVE n'est pas un 
traitement de textes, mais 
bien plutôt un éditeur de 
textes. Cela n'enlève rien à 
ses mérites... 
Il a été conçu en milieu 
scolaire et longuement 
testé et optimisé. C'est un 
logiciel modeste, mais 
équilibré et riche de 
possibilités, conçu pour 
répondre à un triple 
objectif : 

1 ) Permettre à des enfants 
une véritable initiation au 
traitement de textes, 
comme le recommandent 
les Instructions Officielles. 

— mais travailler en 80 
colonnes ; 

— voir son texte à l'écran 
comme il sera imprimé ; 

— travailler sur des textes 
de volume raisonnable ; 

— permettre un journal 
scolaire. 



2) Permettre de gérer le 
courrier de l'école ; 

— information des 
parents ; 

— relations avec les 
partenaires de l'école ; 

— courriers administratifs. 



3) Permettre de faciliter les 
préparations de classe. 

— préparation de fichiers 
de texte pour des logiciels 
pédagogiques ; 

— éditer des documents 
bien présentés pour les 
leçons. 



• Objectif complémentaire, tirer parti 
des possibilités de l'imprimairte 
MANNESMAN-TALLYdu plan I.P.T. et 
ce en disposant des accents (redéfinis), 
malgré les sept bits que l'on sait... 
C'est pourquoi il est quand même per- 
mis de dire que MISSIVE est un logiciel 
de type professionnel, dans la mesure où 
il permet d'atteindre très correctement 
ces objectifs. 

Il peut donc se révéler utile aussi dans 
un cadre domestique. Il sera possible de 
traiter un peu plus que les listes de com- 
missions... 

La notice 



Il est un fait qu'entre l'utilisation d'un 
programme et la description de cette uti- 
lisation existe un décalage,, qui fait 
paraître lourde ou simpliste toute expli- 
cation un peu détaillée. Triste sort que 
celui d'un mode d'emploi, condamné à 
subir l'ingratitude condescendante de 
ceux là qui hier encore l'appelaient à 
leur secours. 

Mais voilà, comment parler de pédago- 
gie, si l'on néglige de parcourir au moins 
une fois, avec l'utilisateur novice, les che- 
mins qui permettront de bien posséder le 
logiciel ? 

C'est pourquoi la notice de Missive a été 
soignée, c'est pourquoi elle est longue. 
Espérons qu'elle permettra à l'utilisateur 
du programme de s'en faire un allié 
fidèle. 

Configurations 



CONFIGURATION MINIMALE 
Il est possible d'utiliser Missive, moyen- 
nant quelques adaptations détaillées en 
annexe, avec un CPC 464 tout seul, sans 
lecteur de disquettes et sans imprimante. 

CONFIGURATION STANDARD 
Le programme a été conçu sur un CPC 
464 avec DDI et imprimante MANNES- 
MAN. 



L'utilisation du lecteur de disquettes per- 
met au logiciel de donner tout son poten- 
tiel. 

LA DISQUETTE 

Elle devra contenir les Fichiers suivants : 

a) CHARGEUR. BAS pas indispensa- 
ble... 

b) PRESENTA.BIN ,c'est l'écran de pré- 
sentation constitué avec le programme 
lui-même. 

c) MISSIVE. BAS , c'est le programme 
principal. 

d) REDEFCAR.ASC , c'est le programme 
de configuration de l'imprimante et d'ac- 
centuation. 

e) DELETE .ASC ,pour effacer Redefcar. 
mis et gagner de la place en mémoire. 
On lance le programme par RUN 
"CHARGEUR" ou RUN "MISSIVE". 
Les fichiers produits par MISSIVE por- 
tent automatiquement l'extension .MIS . 
Sous CP/M on fera des ravoges avec 

*.MIS. 

REMARQUE IMPORTANTE : 
De façon à alléger la mémoire, le listing 
de MISSIVE a retrouvé la ligne de la 
façon suivante : 

Suppression des lignes de REM. 
Utilisation du POKE &AC00, 1 pour sup- 
primer les blancs inutiles. On le frappe 
en début de saisie. 



MISE EN ROUTE 

ET CONFIGURATION 



Le programme peut être lancé après un 
menu, une page de présentation, ou tout 
simplement par : 
RUN "MISSIVE" 

La liste principale appelle le chargement 
des RSX, puis le chargement d'exploita- 
tion et l'effacement du programme 
annexe "REDEFCAR. MIS" destiné à 
préparer le pavé numérique avec tous 
les accents et à définir les codes pour 
l'imprimante utilisée. 



18 



CPC N" 32 - Mars 1988 



A.M.I.E. 



Ceci fait, en peu de temps, les fenêtres 
du programme s'affichent, d'abord la 
grande fenêtre d'édition avec ses vingt 
lignes de points, puis la fenêtre de com- 
mande, au bas de l'écran. 

LE MOT DE PASSE 
Un mot de passe conditionne l'accès au 
programme. Il faut le taper sans erreur, 
sinon il est refusé. A la différence des 
autres messages, il n'y a pas d'écho- 
écran lors de sa frappe. L'utilisation du 
mot de passe, très pédagogique, plaît 
beaucoup à des enfants. 
Le mot actuel est LITTERATURE*, l'étoile 
représentant un blanc obligatoire. La 
modification du mot de passe se fait en 
ligne 285. 

LE MENU GENERAL 
Sésame ayant fait son office, apparaît 
dans un grondement de tonnerre le menu 
général : 

INTRODUIRE LE TEXTE -T- 
REDIGER LE TEXTE -R- 
ACCES SUR LE DISQUE -A- 
SAUVEGARDER LE TEXTE -S- VI- 
SUALISER LE TEXTE -V- 
AZERTY <-> QWERTY -C- 
L'appui sur les lettres-commandes 
déclenche immédiatement la fonction 
désirée. 

Pour ceux qui en ont déjà assez, signa- 
lons qu'il existe des commandes cachées, 
en particulier : 

— La Fin du programme est obtenue en 
tapant la touche [F]. 
A bientôt... 

Continuons pour les autres. 

Configuration 

du CLAVIER 

ET DE L'IMPRIMANTE 

LE CLAVIER 

L'appareil utilisé pour mettre au point 
MISSIVE, un CPC 464 issu des premiè- 
res vagues de la marée a un clavier 
QWERTY. D'aucuns préférant azerter, 
il est donc possible/ en tapant [C] 
(comme clavier) d'obtenir un sous-menu 
d'adaptation. 
Répondre [1] azertyfie. 
Répondre [2] qwertyfïe. 
Le retour au menu général est automati- 
que. 

L'IMPRIMANTE 

Les commandes sont directes : 

Frapper [P] donnera des caractères Pica. 

Frapper [E] donnera des caractères 

ELITE. 

La sonnerie signale le changement et 

puis... 

do you see the leftmost > > P < < ?(Y/N) 

et aussi le mot > >P< <? à droite (O/NJ. 

C'est du NENESSE-DOS... mais restons 

sérieux. 

Il ne nous reste plus qu'à partir vers de 



nouvelles aventures pour découvrir les 
merveilles cachées par un si beau 
menu...! 

MODE REDACTION 

M s'agit là, bien sûr, du module le plus 
riche du programme. La plupart des 
commandes s'effectuent directement à 
partir du clavier, sans passer par un 
menu, pour des raisons évidentes de 
rapidité. Leur maniement se révèle assez 
simple à l'usage. Il est néanmoins néces- 
saire d'en avoir une bonne vue d'ensem- 
ble pour exploiter toutes les possibilités 
du logiciel. 

Opérations de situation 

L'éditeur comprend trois pages de vingt 
lignes de soixante-quinze caractères, soit 
quatre mille cinq cents localisations pos- 
sibles. 
Les opérations de situation concernent : 

— la page-écran qu'il est possible de 
faire commencer, au choix par les lignes 
numérotées entre 1 et 40. Tout le texte 
peut ainsi être déplacé et visualisé ; 

— la ligne d'édition qui, selon le même 
principe, peut parcourir toute la page- 
écran ; 

— le curseur de ligne, qui se déplace sur 
toute la ligne d'édition. Il faut remarquer 
ici que l'éditeur de MISSIVE, à l'image 
de celui du CPC n'est pas plein écran. 

• Opération d'accès 

D'emblée, le menu d'accès demande : 

— le numéro de la page-écran : répon- 
dre entre 1 et 3 ; 

— le numéro de la ligne choisie : répon- 
dre entre 1 et 20. 

Il faut valider chaque réponse par 
"ENTER". 

Le texte demandé ou la page vide à rédi- 
ger s'affiche alors en fonction de ces spé- 
cifications : 

— la ligne demandée s'affiche en inver- 
sion vidéo ; 

— le curseur de texte, représenté par 
une petite barre noire, se positionne sur 
le premier caractère de la ligne. 

* Position dans la ligne d'édition 
L'impression des caractères se fait à 
l'emplacement du curseur et entraîne 
automatiquement le déplacement de 
celui-ci à I emplacement du caractère sui- 
vant. 

Le déplacement du curseur de texte se 
fait en transparence et n'affecte pas ce 
qui est écrit sur la ligne mais le souligne 
simplement. 

— la flèche [— ] du pavé numérique 
déplace le curseur vers la droite. Cette 
touche est à répétition, c'est-à-dire qu'il 
suffit de la maintenir pressée pour que 
le curseur continue son déplacement. 




niCniICTTCG nirmirYTf,. niin..r!J_'.' ' 'IX 




COMMANDEZ 

£ Par téléphone . ALLO RACHEL 43.57.96 89 
ç. Par courrier Bon de commande ci-dessous 

f\ P t'T'"""!-. : :: :: :. . décode amie 



522? JSSS 4 ™™«"«««« sans intérêt | 

îlnn % G : """ 1 8 ' 24 % à <">"" *• 

i soo F après acceptation du dossier 

Carte Bleue, inscrivez le n° et 

la date de validité sur 
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Arrivé en fin de ligne, il restera au bout 
de la ligne et une sonnerie retentira ; 

— la flèche [*-] du pavé numérique per- 
met de déplacer le curseur vers la gau- 
che (le début de la ligne) dans les mêmes 
conditions. 

Il faut noter une particularité de MIS- 
SIVE permettant de signaler la fin d'une 
ligne. Pour les sept derniers caractères : 

— le curseur prend la forme d'un rectan- 
gle encadré ; 

— une sonnerie prévient l'utilisateur. 
Le déplacement rapide du curseur est 
possible et s'effectue alors par sauts de 
cinq caractères ; 

— presser [shïft] + [— ] pour aller à 
droite ; 

— presser [shift] + [«-] pour aller à 
gauche ; 

La bonne utilisation de la touche [shîft] 
implique qu'elle soit maintenue appuyée 
en même temps que les touches dont elle 
modifie la fonction. En général, il est pré- 
férable de la presser avant, pendant et 
après l'autre touche. 

• Position de la ligne d'édition 
La ligne où s'effectue le travail est faci- 
lement repérable puisqu'elle est affichée 
en inversion vidéo. 

— la flèche [t] du pavé directionnel per- 
met de déplacer la ligne d'édition vers 
le haut. Cette manœuvre, très simple, 
peut s'effectuer à partir de n'importe 
quelle position du curseur. Par contre, la 
nouvelle ligne d'édition sera présentée 
avec le curseur en début de ligne ; 

— la flèche descendante du pavé direc- 
tionnel permet de déplacer lo ligne 
d'édition vers le bas. C'est la touche uti- 
lisée pour quitter sans justification une 
ligne que l'on vient de terminer. 

La ligne peut aussi être déplacée avec 
une justification automatique. Cette opé- 
ration de justification n'a pas lieu si la 
ligne a déjà été justifiée. Un test est effec- 
tué sur les caractères de fin de ligne. En 
cas de modification d'une ligne précé- 
demment justifiée nécessitant une nou- 
velle justification, il faudra amener le cur- 
seur en fin de ligne, passer en mode 
insertion en pressant la touche [tab], 
appuyer plusieurs fois sur la barre d'es- 
pace et quitter le mode insertion en 
appuyant à nouveau sur la touche [tab] . 
La nouvelle justification aura alors lieu 
en pressant les touches adéquates. 
La justification respecte les marges à 
gauche dès lors qu'elles sont intégrale- 
ment vides. 

Pour justifier : 

— avec déplacement vers le haut : 
[shift] + [I] 

— avec déplacement vers le bas : 
[shift] + [I] 

Ces touches sont elles aussi à répétition. 
En raison du mode de programmation, 
il arrive que le mouvement de la ligne 
soit interrompu par une opération de 
garbage. Peu de temps après, il reprend 



normalement. Il n'y a donc pas lieu de 
s'en inquiéter. 

• Déplacement de la page-écran 
Il est utile, puisque la page-écran com- 
prend vingt lignes et le texte soixante, 
de pouvoir travailler sur n'importe quel 
ensemble de vingt lignes consécutives du 
texte. En d'autres termes, on peut ima- 
giner que la page-écran est une fenêtre 
derrière laquelle, ligne par ligne, défile 
le texte tout entier en avant ou en arrière. 

— pour faire défiler le texte vers le 
haut : 

[ctrl] + m 

— pour faire défiler le texte vers le bas : 

M + [i] 

Il est à noter que la ligne d'édition con- 
serve sa position dansla page-écran car 
c'est le texte qui défile, pas la ligne 
d'édition ! 

Ces commandes sont elles aussi à répé- 
tition et assez rapides malgré le gar- 
bage. Ne pas confondre [shifi] avec [ctrl] 
pour éviter des justifications aussi impré- 
vues qu'injustifiées...! 
Il est possible d'en distinguer trois utili- 
sations principales : 

— la plus importante permet de faire 
apparaître une nouvelle ligne vierge 
lorsqu'on arrive en fin de page-écran. 
On utilise alors [shift] + [I] ; 

— ensuite vient la consultation du texte 
par défilement ; 

— une utilisation plus spécifique consiste 
à placer l'éditeur en mode impression. 
Toutes les lignes défilant sous la ligne 
d'édition seront alors imprimées. Les 
possibilités du mode impression seront 
détaillées ultérieurement. 

Pour obtenir les pages-écrans, il est aussi 
possible de procéder ainsi : 

— retrouver le menu en pressant 
[ENTER] ; 

— prendre l'option rédaction en pres- 
sant [R] ; 

— donner le numéro de la page et de 
la ligne dans la page. 

Opérations d'insertion 

Les opérations d'insertion comprennent : 

— Insertions dans le texte. 

— les insertions de lignes vides dans 
la page-écran ; 

— l'opération inverse de suppression 
de lignes en blocs. 

— Insertions dans la ligne d'édition. 

— le remplacement immédiat d'une 
ligne vide ou non par une autre ligne 
enregistrée dans un buffer ; 

— l'insertion de mots ou séries de 
mots à partir de la position du curseur ; 

— à partir d'un buffer ; 

— par passage en mode insertion ; 

— le remplacement d'un caractère 
par un autre. 

• Insertions dans le texte 

Imaginons que le besoin se fasse sentir 



d'insérer un paragraphe de quatre 
lignes dans le texte entre, par exemple, 
la ligne 35 et la ligne 36 du texte actuel. 
Il faudra suivre la procédure suivante : 

— amener la ligne d'édition sur la 
ligne 35. En effet, les insertions se font 
toujours après la ligne d'édition ; 

— appuyer sur [ctrl] + [shift] + [1] ; 

— un sous-menu apparaît qui 
demande combien de lignes insérer. 
Répondre en appuyant [4j puis valider 
avec [enter]. L'insertion a alors lieu auto- 
matiquement. 

Après la ligne 35 du texte, les lignes 36, 
37, 38, 39 sont vides. L'ancienne ligne 
36 est devenue la ligne 40. Avant la 
ligne 35 la numérotation n'a pas changé, 
mais après elle a augmenté de quatre 
pour toutes les lignes du texte. 
Quelques remarques sont à faire : 

— les quatre dernières lignes du texte 
avant l'insertion, n'ayant pas pu pren- 
dre les valeurs 61, 62, 63, 64, ont, dans 
cette version de MISSIVE, été simple- 
ment supprimées. Il faut donc bien étu- 
dier chaque cas d'insertion ; 

— un contrôle étant effectué, il est 
impossible de demander plus de lignes 
que n'en comporte le texte après la ligne 
d'édition. C'est une sécurité ; 

— une autre sécurité, appréciable, 
concerne la possibilité de ne pas insérer 
de lignes en répondant [0] ; 

— en se mettant en première ligne et 
en frappant [59], tout le texte est vidé, 
la page est blanche. Bonjour l'angois- 
se... 

• Suppression de lignes en blocs 
Cette possibilité, l'inverse exacte de la 
précédente, fonctionne d'une manière 
analogue, mais "compresse" le texte. 
elle s'obtient par 



[ctrl] + [shift] + [I] 

'ides sont ajoutées en fin 
de texte 



des lignes ■• 



— les mêmes sécurités que pour l'in- 
sertion existent ; 

— il est aussi possible de vider le texte 
par cette fonction ; 

— les lignes sont supprimées après la 
ligne d'édition. 

• Utilisation des buffers de ligne 
Ils sont au nombre de deux et permet- 
tent de conserver, pour les placer autant 
de fois que nécessaire dans le texte, des 
lignes élaborées une fois pour toutes. 
Cela s'avère très utile pour créer des for- 
mulaires, ou des documents complexes. 
— Remplir le premier buffer. 

— d'abord, élaborer sa ligne dans la 
ligne d'édition placée à une position 
quelconque ; 

— appuyer sur la touche [esc] . Elle est 
rouge donc repérable. Le bord de 
l'écran change de couleur. Cela indique 
que le menu des options spéciales a été 
activé ; 

— appuyer sur la touche [Q] ; 



20 



CPC N° 32 - Mars 1988 



— toute la ligne est copiée en bloc, 
dans la fenêtre du bas en ligne A. 

Le menu des options spéciales se quitte 
automatiquement. 

— Reproduire le premier buffer. 

— d'abord placer l'éditeur de ligne à 
la position désirée ; 

— presser [esc] pour activer le menu 
d'options spéciales ; 

— presser la touche [W] ; 

— toute la ligne entreposée dans le 
buffer est placée dans l'éditeur de ligne. 

— Effacer le premier buffer. 

— activer le menu des options 
spéciales ; 

— presser la touche [E] ; 

— le buffer A est vidé. 

— Cas du second buffer. 

— pour le remplir : [esc] + [R] 

— pour le reproduire : [esc] + [T] 

— pour le vider : [esc] + [Y] 

• Insertion de mots à partir d'un buffer 
Il est parfois utile de pouvoir, au cours 
de la rédaction d'un texte, éviter de réé- 
crire un mot ou une expression qui re- 
vient souvent. Il faut alors utiliser le buf- 
fer de mots. 

— Remplir le buffer de mots. 

— presser [shift] + [ctrl] + [-] ; 

— l'éditeur du buffer est activé en 
ligne 25. Il apparaît en noir. Les fonc- 
tions [del] et [clr] sont disponibles ; 

— écrire le contenu à reproduire sou- 
vent puis valider avec [enter]. Le texte 
s'affiche à nouveau et le buffer de mots 
est recentré en ligne 25, son contenu est 
alors disponible. 

— Utiliser le buffer de mots. 

— placer le curseur de ligne à l'em- 
placement de la première lettre du mes- 
sage à reproduire ; 

— presser [shift] + [ctrll + [-] ; 

— tout le contenu du buffer est alors 
placé et le curseur de ligne se déplace 
à la fin du contenu reproduit. 

• Utilisation du mode insertion 

Le mode insertion est très important et 
demande à être bien connu, A la diffé- 
rence du mode d'écriture normal qui pro- 
cède par recouvrement, chaque carac- 
tère étant écrit à la position du curseur 
sans modification des autres, le mode 
insertion, plus farceur, permet d'écrire en 
déplaçant vers la fin de la ligne tout ce 
qui se trouve à la droite du curseur. 

— Obtenir et quitter le mode insertion. 

— il faut pour cela appuyer sur la tou- 
che [tab] ; 

— la première pression active le mode 
insertion ; 

— la seconde pression inhibe le mode 
insertion. 

— Signalement du mode insertion. 

— Te mot "INSERTION" est affiché 
sur la bordure supérieure du cadre de 
la fenêtre menu ; 

— toute action en mode insertion est 
signalée par bruit de sonnerie. 

— Utilisation du mode insertion. 
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— les fonctions [del] et [clr] font par- 
tie du mode insertion, elles seront décri- 
tes ultérieurement. 

— Admettons que nous ayons écrit : 
LE PETIT POIS VERT. 

et que nous voulions : 

LEs PETITs POISsons VERTs. 
(Les lettres insérées sont en minuscules 
pour l'exemple) 

— Etapes à suivre : 

1) Amener le curseur sur le "E" du 
"LE". 

2) Frapper [tab], le mot [INSERTION] 
s'affiche. 

3) Frapper le "s" il s'insère. 

— Avant : 

LE PETIT POIS VERT. 

— Après : 

LEs PETIT POIS VERT. 

4) Appuyer sur [-»] pour se poser sur 
"T" de "PETIT" 

5) Frapper le "s", on a : 
LEs PETITs POIS VERT. 

6) Appuyer sur [— ] pour se poser sur 
"S" de "POIS" 

7) Frapper calmement "s","o","n", 
"s" soit "sons" ce qui donne successive- 
ment : 

LEs PETITs POIS VERT. 
LEs PETITs POISs VERT. 
LEs PETITs POISso VERT. 
LEs PETITs POISson VERT. 
LEs PETITs POISsons VERT, 
et ainsi de suite. 

— Remarques importantes. 

— Chacun sait qu'ils sont rouges et 
qu'en plus il faut mettre un "s" au 
"VERT". 

— ATTENTION : 

Ne pas oublier de frapper [tab] à nou- 
veau quand l'insertion est terminée pour 
quitter ce mode... 

— Utilisation pour la PRESENTATION. 
1 ) Cette fonction d'insertion est très utile 
aussi pour déplacer une chaîne entière 
vers la droite, en particulier pour mettre 
au point une présentation. 

— Il suffit de se poser sur un blanc à 
droite de la chaîne et d'insérer des espa- 
ces en frappant la barre d'espace. 

2) L'effet inverse, le décalage d'une 
chaîne vers la gauche s'obtient en se 
posant à gauche de la chaîne et en frap- 
pant lentement la touche [cri]. 

— Le caractère situé à l'emplacement 
du curseur est avalé et toute la chaîne 
décalée d'un cran vers la droite. 

OPERATIONS 
D'EFFACEMENT 

Les opérations d'effacement compren- 
nent : 

— Effacement du texte. 

— Effacement de la ligne. 

— Effacement dans la ligne. 

• Effacement du texte 

Il existe trois manières de procéder, les 



deux premières, déjà vues, consistent à 

— Se poser en première ligne vide : 

1) demander à insérer 59 lignes [ctrll 
+ [shift] + [lj 

2) demander à enlever 59 lignes [ctrl] 
+ [shift] + [l] 

La manière "normale" s'obtient à par- 
tir du menu des options spéciales : 

A) appuyer sur [esc] la bordure de 
l'écran change de couleur indiquant que 
le menu des options spéciales est activé. 

B) Une demande s'affiche en bas de 
texte : 

— répondre "oui" à la l rB demande 
puis encore "oui" pour confirmer. 

C) Le texte est alors totalement effacé. 



• Effacement de la ligne d'édition 
Là encore, deux méthodes : 

1) La première consiste à remplacer la 
ligne en cours par une ligne de BUFFER. 

- Activer le menu des options spéciales. 

- Appuyer sur [W] ou [T] 

La ligne est remplacée par le contenu de 
la ligne A ou de la ligne B. 

2) La seconde, "normale" consiste à 
presser simultanément les touches [shïft] 
et [tab]. 

La ligne est aussitôt effacée. 

• Effacement dans la ligne d'édition 
Ce sont les plus courants : 

Ij La touche [CLR] 

Elle est bien connue puisque dans "MIS- 
SIVE", elle a les mêmes effets que dans 
l'éditeur du CPC. Elle permet d'effacer 
un caractère à l'emplacement du curseur 
avec serrage de la chaîne. 
ATTENTION : dans "MISSIVE", elle 
est d'un effet plus lent, il convient, bien 
qu'elle soit à répétition, de la manipu- 
ler lentement et parfois d'insister. 
Elle fonctionne en mode normal et en 
mode insertion. 
2) La touche [DEL] 

De fonctionnement analogue à celle de 
l'éditeur du CPC, elle permet de rempla- 
cer par un blanc le caractère situé à gau- 
che du curseur sans serrage de la chaîne. 
3} La [BARRE ESPACE] 
Tout caractère situé à droite du curseur 
est remplacé par un point. C'est l'effet 
inverse de la touche [DEL]. 

4) La [TOUCHE QUELCONQUE] 
Appuyer sur une touche quelconque 
représentant une lettre ou un chiffre per- 
met de remplacer le caractère situé à la 
place du curseur par ce chiffre ou cette 
lettre. (Au fait... c'est comme ça qu'on 
écrit...!). 

5) L'effacement par [CTRL] + [-] 
Appuyer simultanément sur ces deux tou- 
ches et tout ce qui se trouve à droite du 
curseur dans la ligne est effacé. 

6) L'effacement par [CTRL] + [-] 
L'effet est inverse et tout ce qui se trouve 
à gauche du curseur est effacé. 

7) Utilisation du [BUFFER DE LIGNE] 
A) pour ouvrir ce buffer, appuyer sur 

[CTRL] + [SHIFT] + [-] 



B) le remplir de blancs en appuyant sur 
la barre espace en comptant le nombre 
de fois (5 pour un espace de 5) ou 
jusqu'à la sonnerie pour avoir tout le 

C) valider par [enter] 

D) poser le curseur au début de la 
zone à effacer. 

E) appuyer sur la suite de touches 
[CTRLJ+ [SHIFT] + [-] et il s'insère dans 
la chaîne un bel espace vide sans aucun 
point. 

Opérations d'impression 

Elles se décomposent en commandes 
directes et indirectes et se caractérisent 
par une utilisation intensive du menu des 
options spéciales. 

• Commandes directes 
Accessibles directement en mode RE- 
DACTION, elles permettent d'intervenir 
de façon très souple sur le document 
inséré dans l'imprimante. Ces possibili- 
tés du nrtode rédaction accroissent con- 
sidérablement les applications de 
"MISSIVE". 

Elles permettent en particulier d'utiliser 
ce logiciel pour : 

— intervenir en des points précis de 
documents par ailleurs constitués, pour 
légender une photocopie par exemple ; 

— TRANSFORMER véritablement le 
CPC en MACHINE A ECRIRE sophisti- 
quée pour la rédaction directe, mais 
avec toutes les garanties souhaitables, 
de documents aussi longs qu'on le désire, 

1 ) Initialisation directe de l'imprimante. 
Taper [ESC] puis la touche [COPY1. 
L'imprimante se réinitialise avec saut de 
liane. 

2) Mode impression directe. 

Dans ce mode, toute ligne que l'on 
quitte est imprimée. 

A) Passer en mode "impression". 

- Taper [ESC] suivi de la touche [11. 

- Sur la dernière ligne de l'écran s'af- 
fiche deux fois le mot "IMPRESSION". 

B) Utiliser le mode impression. 

- C'est par lui que les possibilités évo- 
quées plus haut sont mises en œuvre. Il 
est possible : 

- d'imprimer ligne après ligne ; 

- d'imprimer successivement les 
lignes non consécutives d'un texte affi- 
ché en mode rédaction. (Pour cela, se 
mettre sur la ligne à imprimer, passer en 
"impression", quitter la ligne en descen- 
dant ou montant, quitter aussitôt le mode 
impression, se poser sur l'autre ligne à 
imprimer, passer en "impression", etc.) ; 

- exercice : imprimer un texte à l'en- 
vers, de la dernière à la première ligne... 

G Quitter le mode impression. 

- Ne pas se laisser impressionner, il 
suffit simplement de taper [ESC] suivi de 
la touche [O], 

3) Impression d'une ligne hors mode 
impression. 
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C'est une facilité permettant d'imprimer 

une ligne isolée sans avoir à passer en 

mode impression. Cela peut être plus 

souple pour certains travaux. 

La commande est la suivante : taper 

[ESC] suivi de [P]. 

4) Récapitulons : Impression directe — 

[ESC] + [I], [O], [P]. 

• Commandes différées 
Elles permettent, à la rédaction d'un 
document, d'insérer dans celui-ci des 
codes de contrôle, invisibles à l'impres- 
sion, mais qui commanderont l'impri- 
mante, une Mannesman MT.80 dans le 
cas standard. 

Ces codes de contrôles apparaissent 
sous la forme de caractères graphiques 
obtenus à partir du menu des options 
spéciales. Ils ne produiront d'effet que 
lors de l'impression obtenue à partir du 
menu principal. 

1) Mode condensé 

- Pour l'obtenir, taper [ESC] puis [1] 
Cela donne le caractère [ 

- Pour l'annuler, taper JESC] + [2] 
On obtient le caractère [ ] CONDENSE 

2) Mode large 

- Activer : [ESC] + [3] - [■ ] 

- Annuler : [ESC] + [4] - [ ] LARGE 

L'attention est attirée sur le fait que ces 
commandes agissent aussi lors de l'affi- 
chage sur écran obtenu lors de la com- 
mande d'impression du menu principal. 
Il est impératif que le passage à afficher 
dans ce mode ne dépasse pas 35 carac- 
tères comptés à partir du début de la 
ligne. Sinon... 

3) Mode renforcé 

- Activer : [ESC] + [5] - [ ] 

- Annuler : [ESC] + 6] - [ ] 
RENFORCE 

4) Mode souligné 

- Activer : [ESC] + [7] - [ ] 
-Annuler : [ESC] + [8] - [ ] 

SOULIGNE 

5) Mode serré 

- Activer : [ESC] + [9] - [ ] 

- Annuler : [ESC] + [0] - [ ] 

6) Mode double frappe 

- Activer : [ESC] + [-]-[ ] 

- Annuler : [ESC] + [ ] - [ ] 
DOUBLE FRAPPE 

7) Commande de réinitialisation de l'im- 
primante 

- Elle s'obtient en frappant [ESC] puis 
[X] 

ATTENTION 

Toute commande différée doit être sui- 
vie de son annulation en fin de ligne, 
quitte à la reprendre en début de la sui- 
vante. Il est indispensable de respecter 
cette petite règle pour éviter des déboi- 
res. 

Ces commandes sont contenues dans un 
fichier appelé "REDEFCAR" séparé de 
la liste principale du logiciel et qu'il est 
facile de modifier pour adapter "MIS- 



SIVE" à d'autres imprimantes. Se pen- 
cher pour cela sur les articles de M. 
Archambault parus dans CPC. 

• Le double jeu 

des caractères graphiques 

Nous venons de voir comment obtenir 
des caractères redéfinis que nous ne 
pourrons pas voir puisqu'il servent de 
codes de contrôle pour l'imprimante. 
Mais, pour composer de belles pages- 
écrans (non imprimables), on peut obte- 
nir un autre jeu de caractères graphi- 
ques. Pour cela : 

- Activer : [ESC] + [J] 

- Annuler : [ESC] + [J] ,encore... La 
commande bascule entre les deux jeux 
de douze. 

• Les caractères accentués 

Ils constituent une des grandes qualités 
de "MISSIVE" et sont accessibles sur le 
pavé numérique. On en dispose ensuite 
à l'écran ou à l'impression. En voici la 
liste : 



■J - La. 
ENTERJ 



[à] 



lis sont, eux aussi, programmés dans le 
fichier REDE FCAR.ASC et donc modifia- 
bles ou adaptables pour d'autres impri- 
mantes selon les besoins. 

• L'inversion vidéo 

Aucun luxe n'étant refusé à l'utilisateur, 
il est possible d'obtenir l'inversion vidéo 
à partir du menu des options spéciales 
par la commande à bascule [ESC] puis 



• Quitter le programme 
de manière polie 

La commande [break] étant inactivée, il 
peut être utile de savoir qu'en mode 
rédaction, le programme se quitte à par- 
tir du menu des options spéciales par la 
commande [ESC] puis [Sjtop... 
Le programme demande alors le nom du 
texte en cours pour sauvegarder. 

• Quitter le programme de façon 
impolie et revenir ensuite 

Lorsque le programme demande le nom 
du texte, répondre en tapant [ESC]. 
Le programme s'arrête après [ENTER]. 
Pour revenir, frapper : GOTO 55. 
Le programme repart au début sans 
perte de fichier. Cela peut s'avérer 
utile... 



VISUALISATION 
DU TEXTE 

Il s'agit ici d'extensions particulières de 
possibilités par ailleurs comprises dans 
le mode édition, c'est-à-dire : 

- la visualisation sur écran ; 

- la visualisation sur papier ou impres- 
sion. 

Ces possibilités sont atteintes à partir du 
menu général en frappant la touche 
[Visualisation. 

Accès 

D'emblée s'affiche un menu. La numéro- 
tation indique ici l'ordre de la pose des 
questions. 

1) IMPRESSION SUR ECRAN 

2) EDITER SUR PAPIER 

3) DEPART- DEFILEMENT 

4) ARRIVEE — DEFILEMENT 

Il existe une option automatique obtenue 
en frappant quatre [ENTER]. 

- Question 1 : réponse OUI 

- Question 2 : réponse NON 

- Question 3 : réponse -01- 

- Question 4 : réponse -60- 

Nous avons dans ce cas un affichage de 
la totalité du texte à l'écran. 

En frappant une touche quelconque : 

- Question 1 : réponse NON 

- Question 2 : réponse OUI 

Nous avons dans ce cas un accès à l'im- 
primante... 

Les questions 3 et 4 appellent des chif- 
fres. Grâce à elles, il est possible de choi- 
sir le passage du texte à imprimer ou à 
visualiser. 

Des sécurités prennent en compte les 
demandes incohérentes et obligent à 
donner un nombre de départ inférieur au 
nombre d'arrivée. (Pour les impressions 
inversées de texte en direction des anti- 
podes, voir le passage concernant le 
sous-mode impression du mode édition). 
Il est par contre possible d'obtenir à la 
fois l'affichage sur écran et l'impression 
sur papier. Ne demander ni l'un ni l'au- 
tre renvoie au menu. 

Impression sur écran 

Lorsque cette option est activée, l'écran 
se vide totalement et le texte apparaît 
ligne par ligne SANS LES POINTS. 
Cela donne une bonne idée du texte tel 
qu'il sera sur papier. Les caractères gra- 
phiques du second jeu sont affichés, ce 
qui permet d'accompagner le texte et de 
créer de belles pages. (Attention à l'im- 
pression.) 

La relative lenteur de l'affichage est com- 
pensée par le grand intérêt pédagogi- 
que que représente ce mode d'affichage. 
La lecture du texte en est facilitée pour 
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des enfants. En particulier, les mots situés 
dans une zone délimitée par les codes 
d'élargissement seront affichés comme 
en mode 1 simultanément avec le reste 
de l'affichage fait en mode 2. 
Si l'affichage se fait ligne à ligne, il se 
fait aussi page par page. A la fin d'une 
page, l'affichage s'arrête pour lecture et 
relecture. Puis, après avoir frappé plu- 
sieurs fois la barre d'espace, il reprend 
en décalant ligne à ligne le texte vers le 
haut. 

Impression sur papier 

Les possibilités de l'impression ont été 
largement détaillées dans le chapitre 
concernant le sous-mode impression du 
mode édition. Il suffira de rappeler ici 
qu'elle est prévue sur MT.80 dont les 
possibilités sont utilisées grâce à des 
caractères de contrôle avec les modes 
ELITE ou PICA. 

LA GESTION DES 
FICHIERS-DISQUE 



Grâce aux possibilités offertes par 
l'Amsdos, le logiciel "MISSIVE" permet 
d'intervenir sur la gestion du disque. Il 
est possible d'obtenir directement le 
catalogue des fichiers et, après choix, de 
les supprimer ou de les renommer. Le 
choix clés noms de fichiers pour la sau- 
vegarde ou le chargement peut se faire 
avec le catalogue sous les yeux, ce qui 
est bien pratique. 

La sauvegarde automatique et régulière 
du texte en cours d'élaboration, les mes- 
sages qui accompagnent les opérations 
pouvant entraîner un effacement involon- 
taire du texte sont autant de précieuses 
possibilités. 

Accès sur le disque 

1) Accès 

C'est une option du menu général, acces- 
sible en pressant la touche [A], il faudra 
donc, pour y arriver à partir du mode 
"EDITION", avoir frappé au préalable 
la touche [ENTER] pour retrouver le 
menu général. 

2) D'emblée, un test est opéré pour 
savoir si une disquette est en place et sî 
elle est protégée. Les messages s'affi- 
chent sur la fenêtre du bas de l'écran. 
Après avoir effectué, si nécessaire, les 
manipulations permettant de lire la 
bonne face de la bonne disquette, il suf- 
fit de presser une touche. 

3) La fenêtre principale s'efface alors et 
le catalogue du disque s'affiche pour 
consultation. 

4) Celle-ci terminée, l'appui d'une tou- 
che fait apparaître en dessous du cata- 
logue les messages suivants : 



Donnez le nom du fichier à chois 



Deux cas se présentent : 

A) On ne désire effectuer aucune opé- 
ration sur fichier. 

Il suffit de taper [ENTER] deux fois pour 
retourner au menu général. 

B) On désire effacer ou renommer un 
fichier. 

- D'abord écrire le nom du fichier choisi 
avec son extension et le point. Il est pos- 
sible d'utiliser [DEL] et [CLR], mais pas 
les touches fléchées si l'on désire corri- 
ger. 

- Valider avec [ENTER] 

- Recommencer l'opération après la 
demande de confirmation et valider avec 
[ENTER]. Le nom s'affiche une seconde 
fois en dessous. 

- Si les deux noms ne sont pas identiques, 
l'opération recommence et cela peut 
durer longtemps. 

- Si les noms sont identiques, s'affiche le 
message suivant : 

- IDENTIQU.MIS 
EFFACER [E] RENOMMER [R] 

- IDENTIQU.MIS 

- L'appui sur [E] déclenche un effaçage 
immédiat du fichier choisi. Le catalogue 
s'affiche à nouveau et tout peu recom- 
mencer, sauf si MISSIVE vient de se faire 
hara-kiri... Restez calme... 

- L'appui sur [R] entraîne le message sui- 
vant : 



Donnez le nouveau nom du fichier 



- Il ne vous reste plus qu'à saisir le nou- 
veau nom, avec confirmation et, après 
avoir validé deux noms identiques, 
l'opération a lieu, l'écran s'efface et le 
nouveau catalogue s'affiche à nouveau. 

- Vous pouvez alors continuer ainsi et 
renommer ou effacer tous les fichiers de 
la disquette. 

- Quand vous avez fini, rappelons que 
deux [ENTER] ramènent au menu géné- 
ral après un affichage de catalogue. 

Sauver le fichier 

1) Accès 

C'est une option du menu général obte- 
nue avec la touche [S]. Sortant d'une 
opération d'affichage du catalogue, il 
est à noter que celui-ci reste marqué sur 
l'écran, ce qui permet de choisir le nom 
du texte en toute connaissance de cause. 

2) Après avoir écrit le nom du fichier, 
sans son extension donnée automatique- 
ment par le logiciel [.MIS], il faudra 
frapper trois fois sur [ENTER] et la che- 
yillette cherra... 

3) Le retour au menu général sera auto- 
matique. 



Il existe un certain nombre de cas où a 
lieu une sauvegarde automatique : 

A) Toutes les cinq minutes, le texte en 
cours de saisie est sauvé sous le nom de 
"SAUVEGAR.MIS". La version précé- 
dente répondant alors au doux nom de 
"SAUVEGAR.BAK". I! faudra donc 
garder 10 Ko sur la disquette pour ces 
deux fichiers. 

B) Si vous quittez le programme en 
mode rédaction par les touches [ESC] 
puis [S]. 

Il existe un certain nombre de cas où a 
lieu une sauvegarde avec choix du nom 
hors du cas standard. 

A) Si, en menu général, le programme 
est quitté par la frappe de la touche 
[F]in. 

B) S'il existe un texte dans la mémoire 
et qu'une demande se fait pour en intro- 
duire un autre. 

Introduire le texte 

1) Accès 

C'est une option du menu général don- 
née par la touche [T]. Elle comporte une 
sécurité, évoquée plus haut, qui n'est 
activée que si la mémoire de texte n'est 
pas vide. 

Dans ce cas, un message s'affiche 
demandant s'il est souhaitable de sau- 
vegarder le texte. Si l'on répond "OUI" 
deux fois (avec confirmation), le nom du 
texte à sauvegarder est demandé et 
après réponse, la sauvegarde a lieu. 
Répondre "NON" amène directement 
à la saisie du nom du texte à introduire. 

2) Un message s'affiche demandant le 
nom du texte à charger. La démarche de 
saisie est identique aux précédentes. 
Frapper [ENTER] trois fois et le texte 
demandé se charge, avec affichage 
automatique de ia première page. Le 
retour au menu général est automatique. 

Pour éviter tout risque de demande d'un 
fichier absent, il est bon, au préalable 
d'avoir demandé le catalogue. En cas de 
message d'erreur, un GOTO 55 relan- 
cera le programme sans perte de fichier. 

Remarque 



Qu'il s'agisse des options CATALOGU E, 
CHARGEMENT, ou SAUVEGARDE, 
après frappe de la touche adéquate à 
partir du menu général : 
A] ACCES SUR LE DISQUE 
Tl INTRODUIRE LE TEXTE 
S] SAUVEGARDER LE TEXTE 
un test de présence et de protection de 
disquettes est toujours déclenché. C'est 
une sécurité de plus. 
La frappe de la touché [ESC] à la place 
d'un nom de fichier, puis la validation 
par [ENTER] provoque une sortie du 
programme. 
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ANNEXE POUR LA 
VERSION CASSETTE 



MISSIVE ayant été conçu sur CPC 464 
peut tourner sans problème dans la ver- 
sion de base de ['appareil. 
La constitution d'une version cassette se 
fera sans modification directe du pro- 
gramme principal, ce qui facilitera un 
passage ultérieur sur disquettes. 
La modification se fait sur le programme 
DELETE.ASC dont la version est diffé- 
rente pour l'utilisation cassette ET QUI 
REMPLACE, en des points stratégiques, 
certaines lignes du programme principal. 
Attention à la saisie, les espaces doivent 
être identiques sur les messages du 
menu, ligne 220. 



***** 



w t me mt m 



SAVE "RS ?LF 



10 COPYRIGHTS GEORGES HECKER »** BESLE SUR 
•♦• 12 DECEMBRE 87 

15 REDEPART GOTO 55' 
: MODES", B, 41507, 192 

16 ■ >U 
J: SYMBOL AFTER 126 M 
Iz MEMORY 41506 ;BK 
30 SOSUB 65:F0R i*=i T0 200: NEXT M 
35 CHAIN NERSE"REDEFCAR.ASC",40 >AL 
40 SOSUB 10000:FOR b(:=l T0 ZOÛîhtEsT ,>BH 
(5 ChftIN MEF;GE"DELETE.ASC",5Û,DELETE 10000- ;LH 
50 DIB Sp(75i;Din n*(60):buf*il)=STRINS*(75,CHR*(l57ji: >« 
:uf*l2>=biiMll>:k*=STRlN6*(50.CHR*l233)l:FDR 1=1 T0 60: 
wu)=STRING*(75.CHR*(157} ! :NEXT i 

S B0SUB 95:G0SUB 265 :« 
M CALL &BB48: RESTORE r ON ERR0R GOTO 2780:EVERY 15000,3 >YP 
60SUB 2430:G0T0 210 

65 0PEN0UT"BUFFER" ,.RT 

70 MEMORY HIMEM-1 M. 

"5 CL0SE0UT ;:L0 

30 SOSUB 7000:CALL 41507 ;F* 

55 OIM «(45) m 

K RETURh , m 

=5 MODE 2:B0RDER 10:INL 0.0: INX 1.18:CLS :>GM 

100 WINDÛU#2,l,80.1.25:PAPER#2,i:PENt2,0:CLS#2 ,0D 

105 WINDOt#0,2,79,22.25:PAPER#0.1:PEN*0,0:CLS#0 >RH 

110 WIND0Mtl.2,79,2,21:PAPEft#l,0:PEN#l,l:CLS#l ;QG 

115 G0SUB 120:S0SUB 150:G0SUB 170:RETURN >JT 

120 FOR 1=1 TD 25 ;CB 
125 L0CATEI2, 1, l:PRINT#2,CHR*(233! : :L0CATE#2,80. i:PRINT M 
«2.CHR$(233i: 

30 NEXT i ;NC 

3 L0CATEt2,l,l:FRINT#2.STRIN6tiS0,CHR*(233S:<: )RM 

« L0CATE*2,33,i:PRINTt2,">,> MISSIVES «• >LH 
42 L0CATE #2,1;1:FRINT I2,"»P«":L0CATE #2,76,1:PRINT >HU 
C"»p«" 

-5 RETURN >ZF 

58 ClS ;>UA 



155 LOCATE#0.;.4:FRIHT#0.CHR*i24kSTRINS*(7S.CHR*(233!) 

: CHR* (24); 

160 L0CATE#0.1.1:PRINTt0,CHR*(24):STRIN6*(78,CHR*(233!) 

i CHR* (24) 

165 RETURH 

i/0 LLSffi 

175 FOR 1=1 T0 20 

180 L0CATE#l,l,i:PRlNT*l,USINB"#t";i 

185 L0CATE#1.3, i:PRINTIl.CHR*(243) 

190 L0CATE#l,4,i:PRINT#l,STRING$(75,CHRt(157!i: 

195 NEXT i 

200 RETURN 

205 SOSUB 150 

210 L0CATE 2,2:PRINT CHR*(7!:EI 

215 L0CATE 2,2 

220 FUINPINTRODUIRE LE TEXTE "; CHRt i24i : "-T-" ; CHRt (24 

!:" REDIGER LE TEXTE ":CHR»(24) ; "-R-" ; CHRÏI24) : " 

ACCES SUR LE DISQUE ":CHR*(24>;"-A-":CHR*(24) ; 

225 L0CATE 2,3 

230 PRINT"SAUVEGARDER LE TEXTE " : CHR* ! 24 S : " -S- " : CHR$ ( 24 

);" VISUALISER LE TEXTE ";CHfi*(24); "-V-"iCHR$(24t i " 

AZERTY <— > QWERTY "; CHR* (24) : "-C-" ; CHR* (24; : 

235 c*=INKEY*:l«ILE c*="":G0T0 235:WEND 

240 c*=UPP£R*(c*) 

245 IF INSTR("TRASVCPEF".<:*)=0 THEN GOTO 235 

250 h=-lc*="r)-2*!c*="R"!-3*ic*="A''i-4*(c*="S ,i )-5«(c*= 

"V"!-6*(ct="C")-7*i.c»="p"!-8*(.c*="E"!-9»(c*=' i F"! 

255 ON h SOSUB 295,565,2345,495.1945,2260,3000,4000,555 



,1M 

m 

,CG 
;>ER 
;CP 
/RA 

m 

>YH 
>HC 

m 

>PG 
>HM 



260 L0CAIE 2.2:PRINT CHR*(7):SDT0 210 ;EN 

265 L0CATE 5,2 ;0E 

270 PRINT CHR$ (24!; "POUR POUVOIR CONTINUER D0NN >MT 

E2 LE MOT DE PASSE ":CHR*(24i 

275 L0CATE 30,3:PRINT CHR* ( 24 i ; STRING* (13, CHR* (233 f > : CH >HD 

fi* (241 

280 f=0;»=33:5=3:s=24:b=-l:l=12:PEN#0,l:SOSUB 1705:PENJ >EF 

0, 

285 IF MO'LITTERATURE "THEN S0T0 275 >GP 

290 PRINT CHR* (7);: RETURN >VH 

295 DI: SOSUB 360 >LR 

296 r=0 HB 

297 FOR 1=1 T0 60 >DF 

298 IF «*(i) O STRING*(75,CHR*(157)I THEN r=-l >HJ 

299 NEXT i jpj 

300 IF r THEN SOSUB 395 ELSE G0SUB 150 M 
305 L0CATE 12,2:PRINT CHR*(24): ;Y6 
310 PRINT'DONNEZ LE NOM DU TEXTE A >Ak 

CHAR:SER":CHR*(24) 

315 L0CATE 2C,3:PRINT SFACE*(40! ,>AP 

320 t=0:»=35:s=3:ï=24:b=-l:l=8:GOSUB 1705 >JF 

325 n*=MID*(t*,l,8):«*=B*+".MIS":L0CATE 2,2:PR1NT CHR* ( >DH 



330 0PENIN w* 
335 FOR 1=1 T0 60 
340 INPUT#9.«*(i) 
345 NEXT i 
350 CL0SEIN 
352 ah=l: SOSUB 650 



m 

>CJ 
>«D 
>PA 
>EK 
>ME 
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m 

or 

M 

IH 
JC 



>NK 



>JZ 

>BE 



355 RETURN >ZJ 

360 FOR bt:=l TO 1000: NEXT: GOSUB 150 >CU 

365 LOCATE 3,2:PRINT CHR* (24) ; "LECTEUR DE DISQUETTES"; >MW 

CHR* (24) 

370 LDCflTE 3,3:PRINT CHR» (24) ; "PREPAREZ LA DISQUETTE!"; 

CHR* (24) 

375 LOCATE 29,2:PRINT CHR$(24) ; "INSEREZ LA DANS LE BDI" 

;CHR$(24i 

380 GOSUB 1BB0 

3B5 IF NOT tds THEN SQTQ 365 

390 RETURN 

395 GOSUB 150 

400 LOCATE 20.2;PRINT CHR* (24) : "DESIREZ VOUS SAUVEGARDE 

R VOTRE TEXTt";CHR*(24i 

405 LOCATE 33.3:PRINT"0UI ll ;CHR*(24); "-?-";CHRSi24< : " N 

ON" 

410 f=0:«=37:s=3:i!=24:b=-lil=3:60SUB 420 

415 IF t$="OUI"THEN GOSUB 495:G0SUB 150:RETURN ELSE RET 

URN 

420 k=l 

425 WHILE k<=2 

430 GOSUB 1705 

435 IF t*O"NQN"AN0 «O'OUI'THEN GOTO 430 

440 k=k+l: LOCATE 33,1:PRINT CHRJ124!;" CONFIRMER ";CHR$ 

(24); 

445 «END ;DB 

450 LOCATE 33,1:PRINT CHR*(24) : STRINS* (11, CHR* ( 233 ) ) ;CH ,'HR 

R*i24) 

455 RETURN 

460 LOCATE 

ON" 

465 j=w:q=t:aq=5:ae=lq:;<x=:< 

470 f=0:w=37:s=4:x=24:b=-l:l=3:G0SUB 420 

475 ap=0:IF ttO'OUT'THEN ap=-l:BOTQ 490 

480 FOR 1=1 TO 60: mt t i ï =STRI NGt (75, CHRt ( 1 57) ) : NEXT i:k* 

=STRIN6*(50, CHR* (233) ! 

485 e=-3:60SUB 1 lB5:e=3:E0SUB 1170 

490 GOSUB 150:f=q:w=j:s=aq:lq=ae! 

URN 

495 01: GOSUB 150 

500 LOCATE 12,2:FRINT CHRSI24); 

505 FRINT"BONNEZ LE NON 

SAUVEGARDER";CHR*(24i 

510 LOCATE 20,3:PRINT SPACE*(40) 

515 F=0:w=35:s=3:k=24:Si=-1:1=8:G0SUB 1705 

520 «*=»+". MIS":LOCATE 2,2:PR1NT CHR*(7);:CALL MBlSïC 

all mm 

525 OPENOUT w* 
530 FOR i=l TO 60 
535 PRINT»9,»*iii 
540 NEXT i 
545 CLOSEOUT 
550 RETURN 

555 i=10000:DI;G0SUB 2430 : El : GOSUB 2455:CLS»1: !M0DE12:L 
0CAT£#1,16,5:PRINT*1, "TERMINE": !M0DE22:L0CATE 1,2:PRINT 
STRING*(77,CHR*(157));:L0CATE 1,3:PRINT STRING*(77,CHR 
*(157));:L0CATE 35, i:PRINT CHR$ (24) ; STRIN6* ( 12, CHRt (2Ï3 
)):CHR*(24) 



3,4:PRINT"0UI ";CHR*!24i: "-?-": CHRt (24t ; " N 



:GOSUB 650:«=0:RET >H8 



DU 



TEXTE 



>ÏD 

,-CE 



>AC 

>CF 

m 

■>NH 
>TE 
>2F 



LIGNE CHOISIE 


JÏB 
'iC >|:R 


";CHR*(24I; 
; CHR* (24)!" 


>QF 
'-2 >TV 

iC 



560 LOCATE 1,2: END 

565 DhGOSUB 150:EI 

570 LOCATE 3,2 

575 PRINT CHR* (24);" NUMERO DE LA PAGE CHOISIE 

HR*(24) 

580 LOCATE 45,2 

585 PRINT CHR* (24);" NUMERO DE L- 

HR*(24) 

590 LOCATE 4,3 

595 PRINT CHR*(24!;"-1-";CHR*(2' 

-";CHR*(24);" ";CHR*(24) : ■'• 

HR*(24);"-?-";CHR*(24); 

600 LOCATE 48,3 

605 PRINT CHR*(24);"-01-";CHR*(24);" ";CHR*(24);" 

-??-";CHfit(24); " ";CHR*(24! ; '-20-";CHR*(24) 

610 f=0:w=32:5=3:x=24:b=0:i*="#":i=i:60SUB 1705 

615 IF VALtttKl OR VAL(t*)>3 THEN LOCATE 2,2:PRINT CHR 

*!7!;60T0 610 

620 pa=VALlt*):ah=(ipa-lit20i+l 

625 t=0:»=6o:5=3:K=24:b=O:i*="#t i, :i=2:S0SUB 1705 

630 IF VALiWKl OR VALi»!>20 THEN LOCATE 2.2:PRÏNT CH 

Rî(7):Ë0T0 625 

635 Iq=VAL(M! 

640 f=l:»=4:ak=75::i=24;b03UB 150:6û5UB n5û: GOSUB 695 

645 RETURN 

650 CLS#1 

655 FOR 1=1 TO 20 

660 L0CATE#l,l,i:PRINTH,USIN6"##":itiari-li 

665 L0CATE»l,3,i:PRIHT#l,CHR*(243) 

670 L0CATEtl,4,i;PRINT#l,i»*(i+lah-l: : 

675 NEXT i 

680 LOCATE 2,2:PRINT"ft-";buf*il[::L0CA" 

buf*(2); 

685 RETURN 

690 :=0 

695 po=l 

700 IF-tîaMl rec=0: ret=0:stp=0: y- 

aa=0 

705 IF ay THEN LOCATE 2,4:PRINT"IMPRESS!0N":L0CATE 68,4 

: PRINT" IMPRESSION" 

710 po*=CHR*(22)+CHR*(l)+CHR*(24)+CHRsi95i+CHR*(24i+CHR 

*(22)+CHR*(0) 

715 s=lg+(ah-l) 

720 LOCATE«,l,lq:PRINT#f,USING"*#";s 

725 L0CATE#f,w,l9 

730 PRINTtH,CHR*(i!Ï:«*(5i;CHR*l;;!; 

735 LOCATEM,(w-ii + (pa-l;.iq 

740 PRINTtt.po* 

745 WHILE « 

746 ap=0 

750 qtt=50-INT(LEN(k*)):qtt=qU/2:L0CATE#0.15,4:PRIHT C 

HR*(24);STRING*(qtt,CHR*(233)>;k*:STRINS*(qtt,CHR*(233i 

i;CHR$(24! 

755 IF po>67 THEN LOCATE 2,2:PRINT CHR*(7); 

760 rep*=INKEY*: IF rep*<>""THEN GOTO 760 

765 rept=[NKE¥t:MHILE rep*="":GOTO 765:t€NB 

770 IF(ASC(rsp*)>64 AND ASC (rep* Kl 23! THEN Vlt=-1:60T0 

1100 ELSE vit=0 



>MY 



.:F-RINT"B- 



i=0:=up=o:a=o:e=0: 



m 
;>RC 



,XF 
>XX 
>AA 
>EG 
>CK 
>MH 
>CT 
,>FD 
:PG 
>LA 

m 
m 

>AF 

,JE 



>ZK 
>GK 

ÏMF 

>CF 

>m 
>ut 

>XG 
>VH 

>HG 



>HV 

>N« 
>TD 
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TJ2 SOSUB 10-30: IF (ASC (rep*) >127 AND ASC(reptK140!THEN >JD 
.::=-l:GDT0 1100 ELSE vit=0 

775 IF INKEY(66)=0 THEN rep*="ESC":GOSUB 902: IF ap THEN >BD 
60TÛ 695 aSE BOTO 1100 

m IF rep*=CHR*(59)THEN rep*=CHF:t«154i : GOTD 1100 ;>TL 

"55 IF rep$=CHR*(34!THEN rep$=CHR*(155):GDT0 1100 >TK 

790 IF rep*=CHR*(44)THEN rep*=CHR» ( 156) : GOTO 1100 >TH 

795 IF rept=CHR* (321 THEN rept=CHR*(.157i :GOTO 1100 >TL 

800 IF rep*=CHR$(13)THEN stpffiT 5tp:m=N0T « M 

505 IF INKEY(79)=0 THEN al=N0T al >S8 

Ut IF INKEYi6BÏ=32 THEN rec=N0T rec:«l=N0T «GOTO 1150 >Yfi 

515 IF INKEY!0)=0 THEN ret=-l:«=NOT m:GOTO 1100 >PA 

52u IF INKEY (2) =0 THEN ret=+l:m=NOT m:SOTO 1100 ;PW 

525 IF INKEY(0)=32 THEN ret=-l:aa=-l:m=NOT i:60TO 1100 >YH 

530 IF INKEY(2i=32 THEN ret=+l:aa=-l:n=NOT m:GOTO 1100 >VD 

575 IF INKEY(0i=128 THEN fi=+l:m=N0T m:GOTO 1100 >8D 

540 IF INKEY(2)=128 THEN fi=-l:n=NOT m:GOTO 1100 >QD 

E45 IF INKEY(68)=0 THEN y=-l:BOTO 1100 ,'EH 

;50 IF INKEY (11=160 AND NOT y THEN G05UB 2490: GOTO 700 >WF 

535 IF INKEY(8)=160 AND NOT y THEN GOSUB 2465:G0T0 700 M 

860 IF INKEY(1)=128 AND NOT y THEN GOSUB 2730:60TO 700 >HH 

3=5 IF INKEY(8)=128 AND NOT y THEN GOSUB 2750:GOT0 700 >WY 

970 IF INKEY 18) =0 THEN po=po-l : BOSUB 1635: GOTO 1150 >VU 

B75 IF INKEY (11=0 THEN po=po+i:SQSUB 1655: GOTO 1150 >VR 

680 IF INKEY (B) =32 AND NOT y THEN LOCATE»t,»,lg:PRINT*t >0A 
,CHR*{x);n(H5);CHR*(Ki;:po=po-5:GGSUB 1635:G0T0 1150 

885 IF INKEY (1) =32 AND NOT y THEN LOCATEttt,», lg:PRINT*t >CG 
,CHRt(s)!i*(5)iCHRt(x);:po=po+5:60SUB 1655:G0T0 1150 

890 IF INKEY(0)=i60 THEN sup=-l:m=NOT i:GDTO 1100 >TA 

895 IF INKEY i2i=i60 THEN a=-l:«FNOT «i:60T0 11» #J 

900 IF INKEY(16)=0 THEN GOSUB 1675:B0T0 755 ,KC 

901 GOTO 1100 >EK 

902 u$=INKEï$: IF u»0"THEN GOTO 902 M 

903 u»=INKEY«:NHILE ut="":B0RDER 14:G0T0 903:WEND:B0RDE /FF 
R 10 

=05 IF INKEY(67i=0 THEN B=+i:m=NDT m >DA 

910 IF INKEY (59) =0 THEN e=-l:«l=NOT m >CH 

915 IF INKEY(5B)=0 THEN e=+3:i=N0T m :DD 

=20 IF INKEY(50)=0 THEN e=+2:«=NQT l >CY 

=25 IF INKEY (51 1=0 THEN e=-2:«=N0T m >CG 

930 IF INKEY 1431=0 THEN e=-3:m=N0T m >CE 

=35 IF INKEY (26) =0 THEN CALL 41683: FOR bq=0 TO 2:L0CflTE >WJ 
*bq,i,l:PRINT»bq,CHR$(24):NEXT bq 

940 IF INKEY(64)=0 THEN rep$=CHR$U41+z! >GG 

=45 IF INKEY(65Ï=0 THEN rept=CHR*(142+z) >HF 

950 IF INKEY (57)=0 THEN rep$=CHR$(143t:i >HD 

=55 IF INKEY(56)=0 THEN rep*=CHR*(144+z) MU 

960 IF INKEY(49)=0 THEN rep*=CHR»(145+z) >HH 

=65 IF INKEY(48i=0 THEN rep»=CHR*(146+zi ;>HN 

=70 IF !NKEY(41)=0 THEN rep*=CHR$(147+z) >HC 

975 IF I«:EY(4C»=0 THEN rep*=CHRt(148+z> >HH 

980 IF INKEY (33) =0 THEN rep*=CHR*(149+z) >HG 

=85 IF INKEY (32) =0 THEN rep*=CHRt(150+zi >HC 

990 IF INKEY (25! =0 THEN rep*=CHR$(151+zi M 

995 IF MEY(24!=0 THEN rep*=CHR*(152+z) >HG 

1000 IF INKEY(69)=0 THEN GOSUB 2455: 6DSUB 460:S0SUB 246 >ZC 


1005 IF INKEY(53I=0 THEN GOSUB 555 >« 



1010 IF INKEY (271=0 THEN n=s:c=s: SOSUB 2205 ;>LC 

1015 IF INKEY(35!=0 THEN ay=-l:LOCATE 2,4:PRINT"IMPRESS >CZ 

ION":LOCATE 68, 4:PRINT" IMPRESSION" 

1020 IF INKEY 19) =0 THEN PRINT#B:PR1NT#8,CHR*<27);CHR*(6 ;CB 

4) 

1025 IF INKEY<45)=0 THEN z=z+20:IF z=40 THEN z=0 >PP 

1027 IF INKEY(63i=0 THEN rep$=CHR$(153) >FZ 

102B IF INKEY (341=0 THEN ay=0:LOCATE 2,4:PRINT CHR$(241 >ÏH 

;STRINB*(10,CHR»i233>J;CHR$i24i;L0CATE 68,4:PRINT CHR*( 

:4!iSTRlNGt(10,CHR*!233)i;CHR$(24l 

1029 RETURN >FF 

1030 IF INKEY(151=0 THEN rep*=CHR*(128) 'ETR >FR 
.1035 IF INKEï!13!=0 THEN rep$=CHR*!129i 'EER ,'FW 

1040 IF INKEY(14)=0 THEN rep$=CHR*(130! CED >FJ 

1045 IF INKEY (5)=0 THEN rep»=CHR$(131! OCR ,>EG 

1050 IF INKEY(20)=û THEN rep*=CHR»(132) EAB >FJ 

1055 IF INKEY(12)=0 THEN rep*=CHRS(133) ITR ,'FR 

1060 IF INKEY(4)=0 THEN rep*=CHR*(134i ICR >EF 

1065 IF INKEY(10)=0 THEN rep$=CHRt(135) ECR ,>FT 

1070 IF INKEY 111 )=0 THEN rep$=CHR*ii36i'UCR )FQ 

1075 IF INKEY(3)=0 THEN rep*=CHR*(137) UTR ,>EP 

10B0 IF INKEY(7S=0 THEN rsp$=CHR*(138) ACR /EO 

1085 IF INKEY(6!=0 THEN rep*=CHR$(139! 'AGP >EW 

1087 RETURN >FK 

1095 IF INKEY(34)=0 AND INKEY(66)=0 THEN ay=0:LOCATE 2, >LH 

4:PRINT CHR$(24):STRIN6*il0,CHR$(233))iCHR$l24):LOCATE 

68,4:PRINT CHR$(24) ;STRING$110,CHR*1233) i :CHR$(24i :rep$ 

="ESC" 

1100 IF NOT m AND stp THEN GOSUB 1200 REPONSE TERMINEE iCP 

1105 IF m ANDINOT al AND NOT y) THEN GOSUB 1375:1F vit T >MP 

HEN SOTO 1150 IMPRESS 

1110 IF m ANDIal AND NOT ylTHEN al=NOT al:GOSUE 14B0'DE ;UE 

LETE 

1115 IF m ANDINOT al AND ylTHEN GOSUB 1510 INSERTION >HD 

1120 IF retOO THEN GOSUB 1200:80SUB 1220:rep*= n ":G0T0 :>BH 

695 ! CURSEUR 

1125 IF trOO THEN GOSUB 1200:G0SUB 1415:G0T0 695*DEPLA >QZ 

7EnEîiï PAGE 

1130 IF a<>0 THEN DI: GOSUB 1330:EI:G0T0 6V5 AJOUTER LI SI 

GNES 

1135 IF sup',.>0 THEN DI: GOSUB 1240:EI:G0TO 695 ENLEVER ;NW 

LIGNES 

1140 IF s>0 THEN GOSUB 1170:B0SUB 1200:S0T0 695 M 

1145 IF e<0 THEN GOSUB 11B5:G0SUB 1200:GOTO 695 ;>NF 

1150 rept="" >H 

1155 NEND )M 

1160 IF rec THEN m*(5!=STRINGII75,CHRt(157i i:GOTO 695 >XM 

1165 RETURN >P6 

1170 IF e=3 THEN buft(l)=STRING$(75,CHR$(1571 i :LOCATE 2 >MJ 

,2:PRINT"A-";bu(*(l):RETURN 

1175 FOR i=l TO 2: IF e=i THEN bu«(i)=a*(5i:L0CATE 4,1+ >RX 

hPRINT buf$(i) 

1180 MEXT:RETURN >MY 

1185 IF e=-3 THEN butt(2)=STRIN8t(75,CHR*(157)) :LOCATE >PN 

2,3;PRINT"B-";bu«(2):RETURN 

1190 FOR i=-l TO-2 STEF'-l: IF E=i THEN oi*(sî=bu+*(ABS (i î >ZH 

1 

1195 NEXTiRETUBN WE 
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1200 IF NOT rec AND aa THEN aa=0:G0SUB 2530:LOCATEtf ,w, 

lg:PRINTtf,«itisi::RETURN 

1205 IF NOT rec THEN LOCATEtf , w, lg :PRI«T#+, m$ !.sï : 

1210 IF NOT rec AND ay THEN n=s:c=5:BÛSUB 2202 

1215 RETURN 

1220 lg=lg+ret 

1225 IF lg,>20 THEN lg=Z0:LOCATE 2,2:PRINT CHR*(7); 

1230 IF lg<l THEN lg=l:LDCATE 2,2:PRINT CHR*;7i; 

1235 RETURN 

1240 OOSUB 12B5 

1245 FOR 1=5+1 TOi&O-sup) 

1250 m$(ii=iij(i+5up! 

1255 NEXT l 

1260 FOR i=60-(sup-l)T0 60 

1265 «l*(li=STRIN8*(75,CHR*li57)S 

1270 NEXT I 

1275 SÛSUB tSGtHBJB 650 

1280 RETURN 

1285 GOSUB 150:L0CATE 5,2:FRINT CHR$ (24) : "SUPPRIMER CO 

«BIEN DE LISNES";CHR«i24i; n ";CHR*(24S: "INSER 

ER COMBIEN DE LIGNES';CHR*(24) 

1290 LOCATE 16,3iPRINT CHRK24S : "-??-"; CHR* (24) 

1295 LOCATE 56,3:PRINT CHR$ 124) ; »-??-" ; CHRt (24) 

1300 j=«:IF supOO THEN w=17 EL3E u=57 

1305 g=+:ag=5:;iK=K:-f=(J:s=3:ii=24:b=ù: i*="##": 1=2 

1310 EOSUB 1705 

1315 IF VftL(t»)X60-agiTHEN LOCATE 2.2:PRINT CHR*(7):G0 

TO 1310 

1320 IF supOO THEN sup=i/AL(t*)ELSE a=VAL(t») 

1325 f=g:w=j:5=ag::<=;«:RETURN 

1330 GDSUB 1285 

1335 FOR 1=60 TOUs+l)+a)STEF-l 

1340 m* ( i > =mt s i -a ) 

1345 NEXT i 

1350 FOR i=5+l TO a+a 

1355 m*(i)=STRING*i75,CHRi(157ii 

1360 NEXT i 

1365 SOSUB 150: GOSUB 650 

1370 RETURN 

1375 IF rep*=CHR*(242)0R r»*=CHR* (243) THEN RETURN 

1380 IF rep*=CHR*(240)0R rep$=CHR*( 241) THEN RETURN 

1385 IF rept="ESC"THEN rep*="": RETURN 

1390 MID$(i*i.5),po,li=rBPï 

1395 LOCATEtf, po+(w-li,lg:PRINTtf,CHR*(KJ;rep*;CHR*(s); 



I4v'u pa-puTi 



THEN po=74: LOCATE 2, 2: FfiïrîT CHR* l ;, dl 



1405 IF po-;68 THEN LOCATEtf, po+iw-1) , lg:FRINTtf .pa»;EL3 ;>JG 
E IF po<?6 THEN LOCATEtf, po+(w-l),lg:PRINTtf,CHR*(233i: 



1410 RETURN 






>EK 


1415 ah=ah+fi 






>NA 


1420 IF ah il THEN ah= 


: LOCATE 2 


2:PRINT CHR* (7) 


: RETURN ,AF 



1440 LOCATEtf, 1, UPRINTtf ,CHR»U1! >CT 

1445 LOCATEtf, 1, l:FRINTtf ,USING"tt" ;ah; >HH 

1450 FRINTtf,CHR*(243);«i*(ah); >¥C 

1455 RETURN >FJ 

1460 LOCATEtf, 7B, 20: PRINTtf, CHR* (10) >EZ 

1465 LOCATEtf, l,20:PRINTtf,USIN6"tt";ari+19; >M 

1470 PRINTtf, CHR*i243!;ni*(ah+19)-, >AD 

1475 RETURN >GA 

1480 po=po-l:IF po<l THEN po=l:LOCATE 2,2:PRINT CHRJI7) >BL 

1485 HID*im*(s),po,l!=CHRt(i57!:repi=CHR*ii57! )PJ 

1490 LOCATEtf, po+iK-t), lg:PRINTtf,CHRt(>:) ;rep*;CHR*(;<ii >CÎ 

1495 IF pa<.68 THEN LOCATEtf ,po+w-l) , lg:FRINTtf,po*:ELS >JR 
E IF po<76 THEN LOCATEtf, po+(u-ly , ig:PRINTtf,CHR*(233i ; 



;MD*lii*(5i,po+l,l ;PT 



>FE 
)BC 
>BD 
>PN 
,2:PRI >L0 

.2:PRI >LB 



JHA 
>HC 

m 

>HZ 



1425 IF ah>41 THEN ah=41:L0CATE 2,2:PRINT CHR$ ! 7 ) ; : RETU >CA 

m 

1430 IF fui THEN GOSUB 1440 ELSE 80SUB 1460 >JU 

1435 RETURN >FG 



1500 LOCATEtf, potN,lg:PRINTtf. CHR* 

liCHRiiK) 

1505 RETURN 

1510 LOCATE 35,i:PRINT"INSERTI0N" 

1515 rep*="":av=po 

1520 rep$=INKE¥$:WHILE rep*="":SOTO 1520:«END 

1525 IF 1NKEY(1)=12B OR INKEYI 11=32 THEN LOCATE 

NT CHR*!7);:rep*="":G0T0 1520 

1530 IF INKEY(8!=12B OR IHKEY(8)=32 THEN LOCATE 

NT CHR*(7);:rep*="":S0T0 1520 

1532 IF INKEY(18)=0 THEN LOCATE 2,2:PRINT CHR*(7): :rep* >PC 

="":GOTO 1520 

1535 IF rep*=CHR*(32iTHEN rep*=CHR*(157) 

1540 IF rap»=CHR»(59!THEN rep*=CHR*(154; 

1545 IF rep*=CHR*(34iTHEN rep»=CHR*(155) 

1550 IF rept=CHR*(44)THEN t-ep*=CHR*(156) 

1555 LOCATE 2,2: PRINT CHRt (7); >YC 

1560 IF INKEY(68i=0 THEN po=av:LOCATE 35,1:PRINT CHR* (2 M 

4) ;STRING*(9,CHR$(233i S :CHR*(24i:y=NDT y:FETURN 

1565 IF INKEÏ(Bi=0 THEN av=av-l:po=av:60SUB 1635:60TO 1 M 

515 

1570 IF INKEY(1)=0 THEN av=av+l;po=aï:GQSUB 1655:G0T0 1 >W 

515 

1575 IF rept=CHR*(240)0R rep*=CHR* (241) THEN GOTO 1515 M 

1580 IF INt(EY(79)=0 THEN po=av:GQSUB 1480: BOTO 1515 m 

1585 IF INKEY(16)=0 THEN po=av:GOSUB 1675:G0T0 1515 >VU 

1590 IF rep*=CHR*(242)0R rep*=CHR* (243) THEN GOTO 1515 >WZ 

1595 p*=MID*lrs*is),l,av) >RR 

1600 g$=MID*(m*(5!,av+l,ak-(av+lJ) ,>BM 

1605 p*=p*+rep* >AC 

1610 m*(s)=p*+g* >CF 

1615 LOCATEtf, u, lg:FRlNTtf,CHR*i:<):m*(s);CHR*(:<) i >«C 

1620 rep*="":av=av+l:IF av>74 THEN av=74:L0CATE 2,2:PRI >NP 

NT CHR* (7); 

1625 IF av<68 THEN LOCATEtf ,av+(w-i) , lg:PRINTtf ,po*;ELS >JB 

E IF av:76 THEN LOCATEtf .av-Hw-li , Ig:PRINTtf, CHR» (233) ; 

1630 GOTO Î52Ô W 

1635 IF poU THEN po=l:rep*="": LOCATE 2,2:PRINT CHR*i7i >AP 

1640 IF po<48 THEN LOCATEtf, po+(tM). lg:FRINTtf,po*;ELS >JH 
E IF po<76 THEN LOCATEtf ,po+(w-l),lg:PRINTtf,CHR*(233); 
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1645 LÛCATE#f,pa+(w),Ig:PRINT#t,CHR$i:<!;niD*(mt!s!.potl >TV 

.iisCHRJÎji; 

1=50 RETURN >FF 

1655 IF po>74 THEN Po=74:rep*="":L0CATE 2,2iFRINT CHRtl >TJ 



lo4û IF po<68 THEN L0CATE#f,PD+l«-li,lq:FRINT#f,po$iEL3 >JK 
£ IF pu<?é THEN LOCATE#-f , po+ (w-1 ) , lg: PRI NTftt , CHR* (233i : 

1645 LOCBTE#f,pot(w-2),Ig:PRINT*t,CHRI(K)iMIDt(«i$(5),po MM 
-l,l);CHR*i:i); 

1670 RETURN >FH 

1475 d*=MID$(i$(5i,l,po-li >|]j 

1680 e*=MID$!ïti5!,po+i,ak-(po+l)l+CHR$a57) >LV 

:=85 »t(5)=d*+e* ïBB 

16W LOCATE#t,w,lg:FfiINT#f,CHR*l:^«iï(si;CHR*(x); ;KF 

1695 IF po<48 THEN LOCATE#f,po*(w-l), Ig: PRINT**, po*:ELS >JU 
: IF po<74 THEN LOCATEKf .po+(n-l) . lg:PRINTttt,CHR*(233): 



17O0 RETURN 

:705 »=-l:al=0:rec=0:ret=0:5tp=û 

1710 LOCATE#t,«~l,s 

1715 FRINT#t.CHR*i243):CHR*i;;i;STRING*Q.CHR*<3"i!;CHR* 

:o:CHR*(242) 

:720 «="" 

1725 L0CATE#f,«,5 

1730 WHILE » AND LEN(t*K=l 

1735 rep*=INKEY*:MHILE rej>»=»«!S0T(3 1735:k!END 

1740 IF INKEYUBiO THEN stp=NOT 5tp.-m=N0T ■ 

1745 IF INKE) (791=0 THEN al=N0T al 

1750 IF INKEV(16)=0 THEN rec=NOT rec:«=NOT m 

:"55 IF INKEV(8)=0 THEN ret=-l:«=NOT ■ 

: 7 â0 IF INKEV(1)=0 THEN ret=+l:n=NOT » 

1765 IF NOT b AND(ASC(rept) (48 OR ASC(rep*!>57)AND ASC ( 

rmiOU THEN PRINTtf,CHR*(7!::rsp*=""'TEST CODE ASCII 

1770 IF NOT m AND stp THEN BOSUB 1805 

1775 IF « AND NOT al THEN 60SUB 1840 

1780 IF g AND al THEN SOSUB 1820 

:"B5 IF rstOO THEN GOSUB 1865 

1790 «END 

:"95 IF rec THEN SOTO 1705 

181» RETURN 

1805 IF b=-l THEN LOCATE#+, w-1, 5: F'RINT#F, " ";CHR*iï> : « 

:3f'ACE*(l-LEN(M));CHR*(>;!;" "; 

1810 IF b=0 THEN bo=WL(t$):L0CATE#i",»-l,5:PRINT#f, ' "; 

-*:*(;!) ::PRINT#f,U5IN6 i*;bo; :PRINT#f,SPACE*(l-LENu*) ! 

:CHR*(si;" •) 

1315 RETURN 

1820 rep*=CHR*(8)+CHR*(16i 

1825 IF LEN(t*)>=l THEN »=LEFT*(«,LEN!t*)-l) iPRINTtf, 

>Btis) ;rep$;CHRÎ.;:i) ;ELSE PRINT#f,CHR*(7); 

1330 al=NOT al 

1335 RETURN 

1840 IF NOT ao THEN rep*=UPPER*irep*i 

1845 IF LBHttM THEN PRINT#f,CHP.*(7);:RETURN 

1850 PRINT#f,CHR*(x)jrep*;CHR*(x>; 

1855 t*=t*+rept 

1860 RETURN 



>FB 
>BA 
>N0 
M 

.EB 

m 

m 
;>pf 

>MD 
>BH 
>MP 
>FR 

m 

>DL 



>BD 

>xc 

>XF 

m 
m 

)FC 
)UA 



>FJ 
>UK 

m 

m 
m 

>EV 

>0H 
DR 
«H 
>FJ 



";CHR*ix):t* UG 



1845 IF b=-l THEN LÛCATE#f,»-l,s:PRINT#f 

;SPACE»!l-LENit*));CHRt(:<);" "; 

1870 IF b=0 THEN bo=VAUt*i :LOMTEtf,«-l, s:FRINT#r, ,! ": 

CHRt(x);:PRINT#f,USINË i*;ba; :PRINT#f , SPflCE* (1-LEN 1 it) i 

;CHRt(xi; " »; 

1B75 RETURN 

1880 0UTiiFA7Ei,l 

1885 FOR 1=1 TO 2000:NEn 

1890 0UT(ÎFB7F),4 

1 895 DUT i 4FB7F ! , 2-PEEIi ( PEEK (&BE7B ) + 

1900 dk=INP(Î!FB7F) 

1905 OUTiî.FA7EÎ,0 

1910 IFldk AND 32>=0 THEN LOCATE 55 



,>BE 
>LH 
>Tï 
>LP 

m 

>H0 

>LE 

: PRINT CHR*(24):"B >8L 



:54*PEEk(ME7E)) 



24):PRINT CHR*(7i::tds=0:CA 



ISÛUETTE NON INSEREE ";CHR* 

LL MB18:B0T0 1940 

1915 IFldk AND 44) THEN LOCATE 55,3:PRINT CHR* (24); "PROT 

ECTION EN ECRITURE";CHR*(24i:PRINT CHR* (7) ;:tds=0;CALL 

MBlSrGOTO 1940 

1920 tds=-l 

1925 LOCATE 55, 2;PRINT CHR* (24), ■ "DISQUETTE EN PLACE 



1930 LOCATE 55.3:PRINT"DISQUETTE NON PROTEGEE "|CHR*(24 >EJ 



DEPART ' 
EDITER SUR 



t 

1935 CALL ScBBIB 

1940 RETURN 

1945 DI:GOSUB 150 

1950 au=0:v=0 

1955 LOCATE 3.2 

1960 PRINT" IMPRESSION SUR ECRAN 

"- -";CHR*(24);" DEFILEMENT 

1965 LOCATE 11,3 

1970 PRINT CHR$(24!; "—"■??—" ;CHR* (24) ; " 

E ";CHR$(24); M - -"iCHR*(24!i " DEFILEMENT 

HRÎ124Î ; "~???— ":CHR*(24i 

1975 f=0:u=13:s=3:ï=24.-b=-l:l=3:G0SUB 1705 

1980 IF t*=""OR t*="0UI"THEN au=-i ELSE au=Ù 

1985 IF au=0 THEN t*="NQN"ELSE t*="OUI" 

1990 LOCATE w-2, 5 :PRINT CHR* (24) ; "— " ; t*i "~ 

1995 f =0:»=63: 5=3: x=24: b=-l : I=3:G0SUB 1705 

2000 IF t*=""OR t*="NON"THEN v=0 ELSE v=-l 

2005 IF v=0 THEN t*="NON"ELSE t*="OUP 

2010 LOCATE k-2,s:PRINT CHR*(24) ;"-":t*;"- 



;CHRt(24) 
PAPIER" 



m 

>FH 

m 

>MF 
>YA 

m 

«EF 
ARRIVE >CJ 



>I(B 
>KB 
;FA 

>m 

>U 
>H8 
>EH 

m 



: CHR* (24) 



';CHR*(24. 



2015 *=0:«=37:s=2:x=24:b=-l:l=2:G0SUB 1705 

2020 IF t*=""THEN t*="l" 

2025 IF VAL(t*Kl OR VAL(t*)>60 THEN GOTO 2015 ELBE n=V >DX 

ALlt») 

2030 LOCATE «,s:PRINT CHR*(24i ;:PRINT USIN6"##";n::FRIN 

T CHR* (24) 

2035 t=0:«=37:s=3:x=24:b=-I:l=2iG0SUB 1705 

2040 IF t*=""THEN t*="60" 

2045 IF VALlM-Kl OR VAL(t*)>60 THEN BOTO 2035 ELBE c=V 

AL(tt) 

2050 LOCATE w,s:PRINT CHR*(24) :: PRINT USINB"t#";c;:PRIN >NN 

T CHR*! 24 I 

2055 IF c<n THEN LOCATE 2,2:PRINT CHR*(7i:G0T0 2015 >UQ 

2040 IF au THEN GOSUB 2075 >jg 

2045 IF v THEN SOSUB 2200 ' R q 



QN 



m 

>KU 

:>rr 

>DP 
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2070 RETURN >FC 

2075 CLS#1 m 

20B0 k=kait=0:an=-l:PENtl,l:PAPER»l,0:CLSti M. 

2085 FOR as=n TO c ,>LN 

2090 LOCATE 2,2:PRINT CHR* (7) >XJ 
2095 IF k,>20 THEN LDCATE#i , 73, 20: PftINT#l , CHR* ( lui : ig=2Û ;LL 
ELSE lg=k 

2100 LOCATEtl,l,lg:PRINTtl," "; >BJ 

2105 p=74:i=0:ai=2:aj=4 ;RH 

2110 i=itl JJF 

2115 v"$=NIû*((iiîuii,i,ij >RX 

2120 d=ASC(v») ,-RE 

2125 IF ASC(v$»=154 THEN v*=CHR*(59i ;CX 

2130 IF A3Civ*)=155 THEN v*=CHR*<34! ;CL 

2135 IF ASC(v*i=156 THEN v*=CHR*l44) >CU 

2140 IF d=143 THEN! MQDEÎ2: am=- 1 :an=0: GOTO 2110 >PU 

2145 IF d=144 THEN iM0DE22:an=-l:a«i=0: GOTO Zllù >PE 

2150 IF ASClv*)>139 THEN v*=CHR*(32) ;CP 

2155 IF mit) AND «173 THEN v*=CHR*(di >DF 

2160 IFtau ANDiai-INTiaiiOCuiTHEN ai=ai+0.5 ;HN 
2165 IF am THEN LOCATEtl,ai,lg:PRINTti,v*:ai=ai+i:a,l=;ij >NZ 
+2:p=p-l 
2170 IF an THEN LOCATEtl,aj,ls:PRINTtl,v*:aj=aj+l:ai=ai >FB 



2175 IF i<p THEN GOTO 2110 

2180 k=k+l 

21B5 IF k=21 OR k=41 THEN CALL JBBlBiCALL &BB18:CALL m 

B18 

2190 NEXT as 

2195 RETURN 

2200 PRINTtB, CHR*(27);CHR*l64) 

2202 IF bl THEN PRINT t8,CHR*(27)+"M"; ELSE PRINT «8,0) 

R*(27)+"P"; 

2205 FOR as=n TO c 

2210 PRINTtB," 

2215 FOR 1=1 TO 74 

2220 v*=MID$(u$(â5).i,l) 

2225 d=ASC(v*) 

2230 IF d>156 THEN v*=CHR*(32) 

2235 IFid>127 AND d<157)0R(d>l60 AND d<173)THEN v*=t*(d 
-127) 

2236 IF(d>144 AND d<148) THEN IF i<74 THEN PRINTtB," ": 
ELSE PRINTtB, " " 

2240 IF K74 THEN PRINTtB, vt; ELSE PRINTtB, v» 

2242 IF d=14S THEN IF i<74 THEN PRINTtB," "iELSE PRINTt 
8," " 

2243 IF(d>150 AND d<153) THEN IF l<74 THEN PRINTtB," "i 
ELSE PRINTtB, " " 

2245 NEXT i 
2250 NEXT as 
2255 RETURN 

2260 DI:GOSUB 150:LOCATE 5,2 

2265 PRINT CHR*(24>;" A ";CHR*(24i ;» ";CHR*(24i;" Z "j 
CHR$(24i;" ";CHR*(24);" E ":CHR*(24);" " ;CHR* (24) : " R 
";CHR*(24ii" "iCHR*(24);" T ";CHR*<24);" ";CHR*i24i; 
" Y ";CHR*(24) 
2270 LOCATE 46,2 
2275 PRINT CHR*(24!;" Q ";CHR*(24i ; " ";CHR*(24i;" H "i 



>TT 

m 
>m 

.-EE 
>BA 
>YH 

m 

:>ls 
m 

>L8 
>RU 
>TA 

m 
m 



>EB 

m 
m 

>ZH 



>EC 
>ZY 



iCHRt(24ii" R 




":CHR*(24!; 






>DH 


" ";CHR$i24 


>CV 




>JD 




>EK 




>TL 




,'RC 


TURN 


>QX 



CHR*(24)i" ";CHR*(24i;" E ";CHR$i24) :" 
":CHR*(24i;" ,1 ;CHR$(24); " T ":CHR*(24)i 
" Y ":CHfi*(24i 
2280 LOCATE 30,3 

2285 PRINT" — > ";CHR*(24i ; "-1-" ; CHRt (24) 
i;"-2-";CHR*(24)i" <— " 
2290 c*=INKEY*:WHILE c*="":SOTD 2290:WEND 
2295 IF INSTR("12",c*)=0 THEN BOTO 2290 
2300 h=-(c*=" 1 "i -2* (ct="2" i 
2305 ON h BOSUB 2315,2330 
2310 LOCATE 2,2:PRINT CHR*(7>:G0SUB 150:RETURN 
2315 KEY DEF 67,0,97,65:KEY DEF 59,0,122,90:KEY DEF 69, >EW 
0,113,81 

2320 KEY DEF 71,0,119,87:KEY DEF 29,0, 109,77:KEY DEF 38 :EP 
,0,58,42 

2325 RETURN >FF 

2330 KEY DEF 67,0, 113, B1:KEY DEF 59,0,119,B7:KEY DEF 69 ?EB 
.0,97,65 

^335 KEi DEF .i.o,i22,?v:kEï DEF 25,S,5S,42ïKB DEF 38, >EK 
0,109,77 

2340 RETURN ;FÎ 

2345 DhBOSUB 150:G0SUB 360 ;VA 

2350 CLStl ,LC 

2355 NIND0Wt0,2,79,2,18:PAFERt0,0:PEN#C',i;CLSt0 >RR 
2360 CAT >ZA 

2365 CALL S-BB18 >VC 

2370 L0CATEtl,6,19 ;MW 

2375 PRINT#1,CHR*(24I; "DONNEZ LE NCH DU FICHIER >KH 

A CHOISIR :"iCHR$(24! 
2380 LOCATEURS, lB:PRINTtl,"-> "jCHP.»C4i i" 
. ";CHR*!24) 

2385 L0CATEtl,55,20:PRINTtl,"~ï ":CHR*i24i:" 
. "j CHRt (24) 

2390 t=l:w=61:s=18:K=24:b=-l: 1=12:60SUB 1705 
2395 g*=t* 

2400 L0CATEtl,41,19:PRINTtl,"C0NFIRMATIDN";CHR*(7) 
2405 F=l:K=61:5=20:x=24ib=-l:l=12:G0SUB 1705 
2410 h*=t* 

2415 IF g*Oh*THEN LOCATEtl, 1,20:PRINT CHR$(7):G0T0 239 >AY 


2416 IF ab THEN RETURN ELBE ab=0 ;ZP 

2420 IF g*©""AND h*<>""THEN LOCATE *i,6,19 ELSE GOTO 2 >ffl 
429 

2421 PRINTtl,CHR*(24i; "EFFACER £ E j 
OMMER C R ]";CHR*(24i 

2422 c*=INKEY*:WHILE c*="":GOTO 2422: WEND 

2423 c*=UPPEfi*(c*) 

2424 IF INSTR("RE",c*)=0 THEN GOTO 2422 

2425 h=-(c*="E")-2*tc*="R") 

2426 ON h GOSUB 5000,6000 

2427 BOTO 2350 

2429 WIND0«tCi,2,79,19,21:CLSt0:HIND0«t0,2,79,; 
RtO,l:PENtO,Û: GOSUB 150:RETURN 

2430 w*="SAUVESAR"+".MIS":LOCATE 29,4:PRINT CHR$(7i; M 
2435 GOSUB 2455 ' * >YC 
2440 LOCATE 28, 4: PRINT CHR* (24) ; "SAUVEGARDE AUTOMATIQUE >FH 
"i CHR* (24);: GOSUB 525 

2445 IF îOlOOOO THEN GOSUB 2460 >YC 



>N0 
>NN 

m 

>JK 
>NF 

>m 

>HJ 



REN ;GE 

>JX 
,'MD 
>E6 
>TB 
>RY 
,-NC 
-:PAPE >UD 
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2447 IF «j—l THEN LOCATE 2, 4: PSINT " IMF-RES5I0N" : LDCATE 

s8,4:PRINT"IMPRESSI0N" 

2450 PRINT CHR*(7);:RETURN 

2455 LOCflTE», l,4:PRINTtO,CHR*(24i ;STRlNEt i78, CHRK233) 

>;CHR*i24i;:RETURN 

2440 qtt=5iJ-INT(LEN(k») ) :qtt=qtt/2:LDCATE*Û, 15, 4:PRINT 

LHR*(24i;STRINS*(qtt,CHR*(233ii;k*;STRIN6*iqtt,CHR*(233 

)!;CHR*(24i:RETURN 

2465 l i=w:q=f:aq==:ae=iq: ;«=;:: bffFàl:bb=rec:bd=ret:bh=stp 

:bn=ffl 

2470 f=0:ti=15:5=4::(=24:b=-l:l=50:aa=-l:BOSUB 1705:ao=0 

2475 k*=M 

2480 BOSUB 150: f=g«=j : s=aq: lq=ae: ;i=ï>i:al=bit: rec=bb: ret 

=bd:5tp=bh:«i=bn:G0SUB 650:m=0 

2485 RETURN 

2490 FOR ax=l TO LENtM) 

2495 j*=MD*(k*.ax,ll 

2500 aw=<po-l)+aï 

2505 IF a«<75 THEN MIMiitisi .a«, li=]J 

2510 NEXT as 

2515 LOCflTE#t,w,lq:PRINT»f,CHR*iïi:«*isi;CHR*iï:ii 

2520 po=PD+LEN(ktS:IF PO>68 THEN pa=68 

2525 RETURN 

2530 IF MID* (m* t=i , 75, 1 ) =CHR* k 1 58> THEN PRINT CHR$(7j;:R 

ETURN 

2535 IF m*(5i=STRINB*i75,CHR*U57iSTHEN PRINT CHR$i7);: 

RETURN 

2540 ns=0 

2545 BOSUB 2565 

2550 IF INSTRUIS, CHR*U57))=0 THEN PRINT CHRïWi ;:RETU 

RN 

2555 BOSUB 2645 

2560 RETURN 

2565 1 i$=m* (s> : ac=L£M ( I l*i 

2570 FOR ti=ac TO 1 5TEP-1 

2575 lb$=HID*(ll$.tl,lj 

2580 IF lb*=CHR*(157)0R lb*=CHR*(32iTHEN ac=ac-l ELSE t 

1=1 

2585 NEXT il 

2590 ll$=HID$Ul*,i.aci 

2595 FOR tl=l TO ac 

2600 lb*=MID*(l!i,t:,lJ 

2605 IF lbS=CHR*(157)ûR ib*=CHR*i32)THEN HIB*ill$.tl,lJ 

=CHR*(158)ELSE tl=ac 

2610 NEXT tl 

2615 FOR tl=l TO ac 

2620 lb*=MID*lil*,tl,ii 

2625 IF lb*=CHR*(32) THEN MIMQIt.tl. 1I=CHR$(157) 

2630 NEXT tl 

2635 RETURN 

2640 ' 

2645 IF LEN<11*)=74 THEN o*=ll*:BOTO 2720 

2650 FOR tl=l TO LENdl*) 

2655 IF l1ID$(lI*,tI,i)=CHR*il57)THEN n==ns+l 

2660 NEXT U 

2665 t=74-LEN(ll») 

2670 IF ns=0 THEN PRINT CHR*(7);:BDT0 2720 

2675 FOR bt=l TO ns:sp(bf)=UiisiNE!(T 



2680 FOR bf=l TO t-ns* < t \ns) : sp (b-f )=ep ib-f ) +1 : NEXT 


>W 


2685 bf=l:o*="" 


:>vb 


2690 FOR tl=l TO LENdl*! 


;TZ 


2695 o*=o*+MD*(ll*,tl,li 


>TH 


2700 IF MID*dI*,tl,l)OCHR*d57)THEN 2715 


>JX 


2705 o*=o*+STRIN6* (sp (b« ) , CHR* (157} 1 


>EJ 


2710 bf=bf+l 


>BA 


2715 NEXT tl 


m 


2720 o*=o*+CHR*d5B):m*(si=o* 


m 


2725 RETURN 


>FK 


2730 FOR tl=74 TO po STEP -1 


>VH 


2735 MID*(fli*(5i,tl,l)=CHR*(157i 


m 


2740 NEXT tl 


>FH 


2745 RETURN 


;SB 


2750 FOR tl=l TO po 


>HF 


2755 MIBt(»*i5;,tl,l)=CHR*(157! 


>¥ï 


2760 NEXT tl 


>FK 


2765 RETURN 


>BD 


2780 RESUME 205 


m 


3000 bl=0:LOCATE #2, 1,1:PRINT *2,"»P«":L0CATE #2,76. 


>m 


rPRINT »2,"»P«":RETURN 




4000 bl=-l:LOCATE #2, 1, lîPRINT i2,"»E«": LOCATE #2,76 


;HL 


1:PR1NT #2,"»EÙ":RETURN 




5000 iERS.ih*: RETURN 


>0E 


6000 acn*=h*: LOCflTE il. 6, 1 9 : PR INT# 1 , CHR* ( 24 ; ; " DONNEZ 


>ss 


LE NOUVEAU NON DU FICHIER :";CHR*i24! 




6030 ab=-l:GOSUB 2380 


>PX 


6040 IF g*0""AND MO" THEN ;REN,5ht,êacn* 


>KN 


6050 ab=0: RETURN 


m 


7000 FOR XWfl= 41507 TO 41699 


m 


7005 REflD XWB*:POKE XNA,VALi"i"+iNB*i 


>FN 


7010 NEXT XWA 


>QF 


7015 BATA 01,2C,A2,21,5C,A2,C3,D1 


>2T 


7020 DATA BC,3B.A2,C3,60.A2,C3,73 


m 


7025 DATA h2,l3,Sd,A2,C3,?E,â2,C3 


m 


7030 DATA B6,A2,4D,4F,44,45,30,B1 


M 


7035 DATA 4D, 4F, 44,45,31, B1.4D.4F 


>ZF 


7040 DATA 44,45,30,B2,4D,4F,44,45 


m 


7045 DATA 31,B2,4D,4F,44,45,32,B2 


>ZF 


7050 DATA 00, 00, 00, 00, 00, FE, 00, CO 


m 


7055 DATA 3E, 00,32, CB.B1,3E,CC, 32 


>ZK 


7060 BATA CF,BI,3E,33,32,B0,B1,C9 


,'ZC 


7065 DATA FE,0O,C0,3E.01,32,C8,Bl 


>ZB 


7070 BATA 11,CF,B1,21,87,A2,01,04 


>Z0 


7075 DATA 0Û,EB,B0,C9,88, 44,22, 11 


>ZK 


7080 DATA FE,00,C0,3E,00,32,C8,B1 


)ZC 


7085 DATA 3E,F0,32,CF,B1,3E,0F,32 


m 


7090 DATA D0,Bl,C9,FE,0Û,CO,3E,Oi 


>zx 


7095 DATA 32,CB,Bl,li,CF,Bl,21,B2 


>ZH 


7100 DATA A2,01,O4,00,ED,B0,C9,C0 


>ZH 


7105 DATA 30,OC,03,FE,00,CO,3E,02 


HZ 


7110 DATA 32,C8,Bl,ll,CF,Bl,21,Cfl 


;ZH 


7115 DATA A2,0i,0B,00,ED,B0,C9,80 


>ZL 


7120 DATA 40,20,10,08,04,02,01,00 


>ÏF 


7125 DATA 06,FF,21,00,C0,7E,A8,77 


>ZE 


7130 DATA 23,3E,00,BC,20,F7,C9,00 


m 


7135 DATA 00 


m, 


7140 RETURN 


>FF| 
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ROGRAMMATION 



GESTION DE PAGES-ECRANS 

HARDCOPY 

SAUVER IMAGE SUR DISQUETTE 

CONSTRUCTION D'UNE MIRE 

IMAGES AVEC ABERRATION 

EN BARILLET IMAGE FISH EYE 

Ol3 ème PARTIE 



AVANCEE 



CAO 



SUR MICRO 



CPC 



Jean-Pierre PETIT 



#ean-Pierre PETIT est directeur de recherche au CNRS. Il est l'auteur d'un logiciel de CAO de 

120 Ko intitulé AMSTRAD 3D, assorti d'un livre du même nom, édité par PSI. Le logiciel a été 

délibérément mis dans le domaine public, c'est-à-dire que vous pouvez le copier sur une 

disquette AMSTRAD CPC en toute tranquillité chez un revendeur ou un ami. 

Ce livre est un gros mode d'emploi du logiciel pour non programmeur. 

Mais ce programme est riche de ficelles de programmation, liées à l'imagerie 3D. 

Dans cette suite d'articles, Jean-Pierre PETIT explique au lecteur toutes ses astuces, ce qui 

lui permettra de construire lui-même son propre programme de CAO. 



INTRODUCTION 

Nous allons équiper les sections VOIR 
et DES de sous-programmes permettant 
de stocker des images sur disquette et 
de faire des hardcopies (sur imprimante 
DMP 2000). Mais auparavant, nous al- 
lons nous doter de la possibilité de gérer 
des pages-écrans. 



INSTALLATION 

DE BANKMAN 

SUR DISQUETTE 

BANKMAN est une routine permettant de 
gérer le second bloc mémoire de 64 K 
présent dans le CPC 6128, bloc qui 
n'existe pas sur un 464 muni d'un lec- 
teur externe. Les lecteurs qui dispose- 
ront de ce matériel devront en tenir comp- 
te. 

BANKMAN existe sur la disquette système 
C/PM PLUS, en deux parties, toutes deux 
nécessaires : 

34 



BANKMAN .BAS 
BANKMAN .BIN 



1K 
2K 



Ce que vous pourrez vérifier en mettant 
votre disquette C/PM PLUS dans le lec- 
teur et en faisant CAT. Vous vérifierez 
également que cette disquette porte un 
programme en C/PM intitulé : 



PIP. 



.COM 9K 



REMARQUE 

Certains lecteurs semblent avoir eu 
des difficultés à se procurer la dis- 
quette AMSTRAD-3D. En plein ac- 
cord avec l'éditeur, vous pouvez, le 
cas échéant, adresser une disquet- 
te AMSTRAD vierge à l'auteur avec 
50 F pour le port, ou plus simplement 
90 F sans la disquette à l'adresse 
suivante : 

Jean-Pierre PETIT, Chemin de la 
Montagnère, 84120 Pertuis, Vauclu- 



C'est le programme, l'utilitaire, que nous 
allons utiliser pour installer les deux sec- 
tions de BANKMAN sur notre disquette 
AMSTRAD-3D. Mais si vous essayez de 
faire RUN'PIP, cela ne donnera rien. Il 
vous faut d'abord passer en C/PM, grâce 
à l'ordre-clavier : 
ICPM 

Le I est le caractère indiqué à droite de 



Signalons que nous pouvons désor- 
mais vous fournir une version tour- 
nant sur 464 avec lecteur externe, 
ceci grâce aux modifications appor- 
tées. En effet, CHAIN ne marche 
pas dans le 464 . Il a donc fallu le 
simuler en stockant et en rechar- 
geant les fichiers résidents à cha- 
que transfert. Par ailleurs, il y a quel- 
ques différences dans les syntaxes 
respectives (effaçage fichiers, bas- 
culement de pages-écran). Problè- 
me résolu grâce à l'obligeance de 
M. Vibert, de Garches. 
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la lettre P, sous forme de deux tirets ver- 
ticaux situés l'un au-dessus de l'autre. 
Nous l'avons déjà utilisé pour des ordres 
comme IERA,"\BAK" (effacement auto- 
matique des fichiers .BAS sur disquette, 
pour "faire le ménage"). Sur certaines ma- 
chines ce caractère sera le u accentué ù 
Quand on fait cet ordre ICPM, l'affichage, 
sur un CPC couleur, change. Les carac- 
tères apparaissent en blanc sur fond bleu, 
et le curseur carré apparaît à la droite 
de: 

A> 

NB : l'ordre C/PM qui provoque l'affichage 
du contenu de la disquette est alors 

D1R (plus évidemment une pression de 
la touche fin de message) 

Ce que vous pourrez aisément vérifier. 
Maintenant, quand vous êtes sous C/PM 
il n'y a plus d'ordre de lancement de pro- 
gramme du style RUN"Quelque chose. 
Essayez, l'ordinateur ne comprend plus 
cet ordre BASIC. 

Tous les programmes suivis de COM se 
lancent en écrivant directement leur la- 
bel. Vous avez par exemple un program- 
me intitulé ; 



§F 



(on appelle ainsi le caractère situé immé- 
diatement avant le curseur). C'est main- 
tenant un astérisque. PIP est un program- 
me qui permet le transfert d'un fichier quel- 
conque d'une disquette à l'autre. Le lec- 
teur central est repéré sur AMSTRAD par 
la lettre A et le lecteur externe par la lettre 
B. 

Pour copier à l'aide du seul lecteur A, 
l'ordre logique serait : 

A : = A: BANKMAN.BIN 



Le tout étant ce que Kipling 
appelait "grosse astuce 
et force magie 



mais cela ne marche pas et vous obtenez 
le message d'erreur : 

ERROR : INVALID FORMAT 

En fait l'ordre de transfert est : 



Attention, ne vous précipitez pas pour 
changer la disquette dans le lecteur. Ce 
message signifie : mettez le disque cor- 
respondant au lecteur A (au lecteur "sour- 
ce", dans lequel se trouvera le fichier à 
transférer). Si votre disquette système est 
déjà dans le lecteur, pressez simplement 
une touche. Vous verrez alors apparaître 
un second message défilant : 

Please put the dise for B : into the drive 
then press any key. Please put 

Là vous devrez mettre votre disquette de 
travail AMSTRAD-3D et presser une nou- 
velle touche pour déclencher l'opération 
d'écriture. 

Ouf.... 

Nous avons décrit l'opération par le menu, 
pour que vous puissiez la mener à bien 
sans problème et sans avoir à vous référer 
au manuel (celui de l'AMSTRAD est parti- 
culièrement ésotérique). 
Pour retourner en BASIC, le plus simple 
est d'éteindre la machine et de la rallumer. 
Vous lancerez alors le programme BANK- 
MAN en faisant : 

RUN"BANKMAN 



AMSDOS .COM 1K 

Vous pourrez le lancer en faisant indif- 
féremment 

AMSDOS (et évidemment la touche <Re- 
turn>) ou : 

AMSDOS.COM (et la touche <Return>). 

Vous chargerez alors le DOS, lediscope- 
rating system de l'AMSTRAD associé au 
BASIC, et qui s'appelle précisément AMS- 
DOS. Essayez, vous verrez apparaître l'af- 
fichage en grosses lettres jaunes sur fond 
bleu et l'affichage du catalogue ne pourra 
plus être obtenu par DIR mais par CAT, 
ordre BASIC. Nous sommes passés du 
C/PM au BASIC. 

Pour revenir en CPM vous n'aurez qu'à 
faire ICPM. Quand vous êtes revenu dans 
cette configuration, faites : 

PIP 

Vous verrez apparaître le message : 

CP/M 3 PIP VERSION 3.0 

Vous noterez le changement du "prompt" 
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B : = A: BANKMAN.BIN 

Le début du message spécifie le lecteur 
sur lequel sera transférée la copie. Vient 
ensuite le lecteur où sera puisé le fichier, 
puis le nom du fichier. Le tout étant ce 
que Kipling appelait "grosse astuce efforce 
magie". 

Immédiatement, l'AMSTRAD charge 
BANKMAN . BIN à partir de sa disquette 
système (si elle est toujours dans le lec- 
teur). Vous devez alors constater l'affi- 
chage défilant, en bas de votre écran, de : 

Please put the dise for B : into the drive 
and press any key. Please put 

enlevez le disque système et remplacez- 
le par votre disquette de travail, puis pres- 
sez une touche quelconque. Vous retrou- 
vez votre "prompt", travail effectué. Remet- 
tez le disque système dans le lecteur et 
transférez alors votre second fichier par : 

B: = A: BANKMAN. BAS 

vous lirez alors le message défilant : 

Please put the dise for A : into the drive 
then press any key. Please put 



Le lecteurtournera un instant et vous ver- 
rez réapparaître le : 

Ready. 

Désormais toute entrée dans la chaîne 
de traitement AMSTRAD-3D sera précé- 
dée de cette opération qui a pour effet 
d'installer quelque part dans la machine 
(en dehors de l'espace réservé à l'héber- 
gement des programmes BASIC) une rou- 
tine en assembleur permettant de gérer 
le second bloc de 64 K, en particulier de 
jouer avec des "pages-écrans" (voir plus 
loin). 

INSTALLATION DE LA 
ROUTINE DE HARDCOPY 

Ce programme correspond à l'imprimante 
DMP2000, et nous lui avons donné ce 
nom. Nous allons devoir écrire ce pro- 
gramme assembleur, sous forme d'un pa- 
quet de DATA. Ces ordres assembleur 
sont alors inscrits en mémoire, au mo- 
ment de l'exécution, dans une boucle 
d'écriture : 

270 FOR i = &AO00 TO &A0C2 

280 READ A$ : A = VAL ( "&" +A$ ) : POKE 
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i,A 

290 TOTAL = TOTAL + A : REM Comp- 
teur pour vérification. 
300 NEXT i 

J'ai mis un i minuscule pour rappeler qu'il 
s'agit cette fois du caractère alphabétique 
i et non du caractère C/PM. 



Ceci est extrêmement commode. En as- 
sembleur les instructions et les adresses 
sont écrites en hexadécimal. Dans ce co- 
dage non décimal, les caractères de base, 
dans cette numération en base seize, et 
leur équivalent en décimal sont : 

0, 1,2, 3, 4, 5, 6, 7, 8, 9, A, B, C, D, E, F 
0, 1,2,3,4,5,6,7, 8,9, 10, 11, 12, 13, 
14,15 

A "vaut" donc 1 (en décimal). 

L'adresse A000 correspond ainsi à : 

zéro + zéro x seize + zéro x (seize) 2 + 
dix x (seize) 3 

soit 40960. De même l'adresse A0C2 
correspond à : 

deux + douze x seize + zéro x (seize) 2 + 
dix x (seize) 3 

soit 41 154. J'ai fait toute cette acrobatie 
simplement pour montrer que si dans le 
programme (listing 1), vous remplacez la 
ligne 270,par : 

270 FOR i = 40960 TO 41 1 54 

cela marchera tout aussi bien. Mais la 
présence du caractère & dans le FOR indi- 
que à l'AMSTRAD que les adresses figu- 
reront en hexadécimal. Dans la ligne 280 
le READ lit le paquet de deux caractères 
en DATA correspondant à l'ordre assem- 
bleur, le VAL convertit cela en décimal, 
d'une manière il est vrai un peu parti- 
culière, et le POKE réalise l'écriture en 
mémoire à l'adresse t. 
Il est toujours agaçant d'avoir à rentrer 
des paquets de trucs à la main dans un 
ordinateur comme autant d'incantations 
cabalistiques. C'est l'aspect un peu mys- 
tificateur de l'informatique, alors que, bien 
souvent, cela ne casse pas trois pattes 
à un canard. 

Vous savez qu'une routine écrite en as- 
sembleur peut être appelée à l'intérieur 
d'un programme BASIC en utilisant l'ins- 
truction CALL, suivie de & et de l'adresse 
en hexadécimal du début de cette sec- 




tion-programme en assembleur, en l'oc- 
currence A000, comme indiqué en ligne 
270. 

EXPLOITATION 
DANS VOIR 

Nous avons créé dans une précédente 
leçon une section VOIR qui crée des ima- 
ges en perspective avec prise automa- 
tique du point de vue sur l'objet résident. 
Nous allons intégrer ce système de hard- 
copy dans ce programme, ce qui donnera 
le listing 2. On rappelle les conventions 
d'écriture : les lignes ayant déjà été don- 
nées dans de précédentes leçons sont 
suivies de : ' * 

Commentaires : 

En 12060 et en 1 81 1 7 (selon que l'on déci- 
de de tracer ou non l'image du trièdre), 
on procède à une sauvegarde systéma- 
tique de la page écran affichée (page 1) 
dans la zone mémoire "page 2" (qui se 
situe en fait dans le second bloc mémoire 
de 64 K de l'AMSTRAD). L'instruction 
SCREENCOPY (précédée du caractère 
C/PM) permet de recopier une page écran 
sur une autre. Les pages-écran correspon- 
dent à des zones mémoire, et nous ne 
nous préoccuperons pas de savoir où elles 
se trouvent. La syntaxe se lira sur un 
exemple : 

ISCREENCOPY 2,1 recopie la page 1 
dans la page 2 

ISCREENCOPY 1,2 recopie la page 2 
dans la page 1 

Nous utiliserons ce système de copie à 
chaque fois que nous voudrons écrire sur 
un dessin, sans l'abîmer. 

Dans ces lignes 12060 et 18117, on pose 
ensuite la question de l'opportunité d'une 
hardcopy. Si la réponse est <0> (O est 
la quinzième lettre de l'alphabet), on va 
faire disparaître toute trace de ce qu'on 
vient d'inscrire en recopiant la page 2, 
où on a conservé le dessin ) sur la page 
1 . Puis on déclenche l'ordre de copie par 
le CALL &A000. Ceci ne marchera bien 
évidemment que si : 



1 - Votre imprimante est allumée. 

2 - Vous avez préalablement à l'entrée 
dans la chaîne de traitement par 
RUN"M0D1 fait RUN"DMP2000 

De même l'AMSTRAD ne comprendra pas 
l'instruction ISCREENCOPY si vous ne 
la lui avez pas préalablement "apprise" 
en faisant RUN'BANKMAN 

Remarque importante : en entrant dans 
la chaîne de traitement AMSTRAD-3D, 
respectez l'ordre : 

RUN"BANKMAN 
RUN"DMP2000 
RUN"MOD1 

Commentaires : 

Nous introduirons dans DES les trois sous- 
programmes 230000, 45000 et 46000 d'er- 
reur sur objet, d'erreur sur image et d'er- 
reur sur bloc. 

Le dessin est effectué dans le sous-pro- 
gramme 27000, selon trois sous-options : 

a-Objet en mémoire 
b-Dessin par élément 
c-Dessin par bloc 

La recherche du "blindage" de cette sec- 
tion DES continuera grâce aux sections 
30000 et 31 000 qui introduisent des ques- 
tionnements quant à l'objet et au bloc 
résident, ou à charger. 

En fin de sous-programme 27000, comme 
dans VOIR, on procédera à une recopie 
du dessin sur la page 2 (ligne 27390). 
En 27390 on appellera le sous-programme 
60000, déjà vu plus haut, qui permettra 
une éventuelle hardcopy ou stockage 
d'image sur disquette. 

L'ABERRATION 
EN BARILLET 

C'est très joli d'accumuler des outils 
nouveaux à chaque leçon, mais qu'en fai- 
re ? Après avoir doté VOIR et DES de 
ces outils de stockage d'image et de hard- 
copy, nous allons puiser dans ce qui a 
déjà été construit, ajouter quelques com- 
pléments et mettre en évidence ce pro- 
blème clef de la représentation en pers- 
pective. 

En fait, un des buts de la démarche que 
nous poursuivons est de construire une 
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procédure permettant une négociation 
automatique de l'aberration en barillet, ce 
qui n'existe présentement sur aucun sys- 
tème CAO, gros ou petit. On n'est pas 
chercheur pour rien. 

Très bien, mais alors, cette aberration, 
c'est quoi ? 

Elle nait dès qu'on utilise un objectif "grand 
angulaire". Dans notre programme ceci 
correspondra aux fortes valeurs de ce que 
nous avons appelé ['OUVERTURE AN- 
GULAIRE AN. La valeur standard corres- 
pond à un champ visuel humain restreint, 
de plus ou moins vingt degrés, c'est-à- 
dire à une extension angulaire de 40° 
En fait l'œil humain a un champ percep- 
tif plus important. Faites l'expérience. Gar 
dez la tête immobile et demandez à quel- 
qu'un de déplacer un objet jusqu'à ce que 
vous cessiez de le percevoir. Vous ver- 
rez que ce champ est énorme. 
Bien sûr la qualité de perception diminue 
au fur et à mesure que l'on s'éloigne de 
l'axe optique, qui concentre l'information 
sur la tache fovéale située au fond de la 
rétine et riche en cellules réceptrices. C'est 
cette tache minuscule dont vous vous ser- 
vez pour lire ce texte. Si vous prenez un 
objet comme un timbre poste et que vous 
cherchiez à lire le chiffre qui y figure en 




déplaçant votre axe optique légèrement 
à côté, vous verrez que c'est impossible. 
Prenons un décor constitué de segments 
de droites. L'œil les percevra toujours, 
plus ou moins, comme des courbes. En 
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fait la perception humaine introduit une 
aberration importante à laquelle nous som- 
mes habitués. Tout le décor se trouve 
courbé, comme nous le verrons sur les 
images que nous allons créer. 

Pour créer ces images, donnons deux 
versions de MOD1 et MOD2, qui contien- 
dront les éléments dont nous aurons 
besoin. 
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|0 *********************** 

20 HASDCOPV ECRAN 
30 'POUR DUR 2000 
40 ************* 

50 Bffffl CD,BA.BB.CD.E7.BB,32.EF.A0.CD 
60 DATA 6B.A0. 21. 8F. 01. 22. C0.A0.il. 00 
70 DATA'0o.3E,O6.32.C2,A0,CB,7B.A0.0E 
80 DATA OO.ifl. C2. flO. 47. E5. D5.C5. CD. FO 
90 DATA BB.CS , Dl . 21 . BF. ftO. BE.E1 . 37.20 
100 DATA 01.A7,CB.11.2B,10,EA.CD,B3.A0 
110 DATA 79,CD,AA.A0.13.E5,21, 7F. 02.37 
120 DATA EC.52.E1.38.05.2A.C0.A0. 1B.CD 
130 DATA 23. 7C.B5.C8.2B.il, 00, 0Û,22,C0 
140 DATA A0.3E.03,BD,20,BA,7C,B4.20,B4 
150 DATA 3E,04,32,C2,A0,18.AF,3E,1B,CD 
160 DATA AA.A0.3E,33.CD.AA,A0.3E,10.CD 
170 DATA AA,A0,C9.E5,3E,42.CD,1E.BB.E1 
180 DATA 2B,02.E1,C9,3E.ÛD,CD,AA,A0.3E 
190 DATA 0A,CD.AA,A0,3E,1B.CD,AA.A0,3E 
200 DATA 2A.CD,AA.A0.3E,04,CD.AA,AO,3E 
210 DATA 7F,CD,AA,A0,3E.O2,CD.AA,A0,C9 
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220 DATA LD.2E.BD.38.FB.CD.2B.BD.C9.3A 
230 DATA C2.A0.FE.06.CB.AF, CB.il. CB. il 




rfL 

;EA 


240 BATA C9. 00. 00. 00, 00 

2o0 NEHORY &9FFF:T0TAl_=0 
270 FOR I=M000 T0 IA0C2 
280 READ A$:A=VALs"i"+A*!:P0t;E i.A 




,PL 

m 

XJB 

>w 

>AG 


290 T0TAL=T0TAL+A 




M 


300 NEXT 

310 IF TOTAL O 24125 THEN PRINT "ERREUR 


EN DATA' 


: ST0F )2K 


320 CLS:PRINT"Routine charaie: ":PRINT 




ïPD 


330 PRINT "Apoel de cette routine: CALL 
340 END 


j/WOO" 






1 REM V0IR2 8 NDV B7 

2 IF FD = THEN CLS : PRINT"F'as d'accès direct a VOIR. 
..":PRINT:PF:INT"Je vous renvois sur M0D1. . . ":RUN"P1B": ' 
* 

5 CLS : L0CATE 17,12 : PRINT"VQIR. .. ": '* 

7 IF L =-1 THEN FRINT:PRINT"Pas d'objet résident, reto 

ut- sur M0Dl....":EL*="":C=0iCHAIN"M0Dl"!'* 
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i:^^v^.\x^^.v < ;\vv^xV,v.S % \vv > 



10 60SUE 44000: * 

20 BORDER 26*RN0:CLS: * 

25 IF EL* O "" TKEN LOCATE 25.21 

:L0CATE 25.23:PRINT ELî:FR!NT: * 

30 LOCATE 13.10 : PRINT" Désire 

edre "*":B0SUB 65020: * 

7000 REM Représenter un objet « 

7010 AN = 20: * 

7040 m = bhki + reiki * 3.5: « 

7050 YM = GY(K> * REiK! * 2.5: » 

7060 2H = G2!K) + REiK) * 1.5:'* 

7080 XG = GX!K):YG=BY(Ki:ZG=6Z(K); 

7090 CX = XS - x.H : CY = i'B - ffl : 

7100 00 = SDR (CX*CX * CY*CY I: » 

7110 IF DD = AND CZ ; THEN TE 

ÛTÛ 7210: '« 

7120 IF DD = AND CZ i u THEN TE 

0T0 7210: * 

7130 Kl = hTU iCZ/DDi: t 

7140 IF CX = AND Ci i THEN TE 



PRINT" 



GOTO 



7150 IF CX 



< AND CY 



THEN TE =-1.57 : GOTO 7210: * 



7160 TE = ÂTN (LY/CX): * 

7170 IF CX : AND CY > THEN TE = PI + TE: * 

71BÛ IF CX S AND Cï ; THEN TE = PI + TE: * 

7190 IF CS < AND CY = THEN TE = PI:'* 

7200 IF CX = AND CY : THEN TE = - PI/2; » 

7210 REM * 

7220 REM « 

7230 CT = COS Ut! : ST = SIN (TE;:* 

7240 CK = COS (Kl) : SIC « SIN (Kl!: * 

7250 XU = CK*CT : YU = CK*ST : ZU=SK: '* 

7260 XV = - ST : YV = CT : ZV = 0:'* 

7270 M = - SK*CT |»a. SK*ST : ZW = CK: * 

7280 GOSUB 62000 : * 

<2tQ IF c = 15 THEN GuSUE 14000 : Bu'SOc 17O0H1 

18000: * 

12000 REM Objet déjà présent en mémoire* 

12010 CO=i: * 



TO Nil! 



LOCATE l.l;PRINT"Har 
SCREENC0PY,1,2:CALL 



12020 FOR I = TO L : FOR J 

12030 60SUB 15000: ■» 

12040 NEXT J:NEXT I:'* 

12050 C=0: * 

12060 iSCREENCOPY, 2,1: SOUND 1,50 

dcopy ?":GOSUB 65020: IF C=15 THEN 

iA000:PRINT#8;PRINT#8 

12999 SOUND 1,200 : CHAIN"P18": * 

14000 REM SAUVEGARDE OBJET RESIDENT* 

14005 'CD = 1: * 

14010 OPENOUT"SAUVOBJ": * 

14O20 PfiINT#9,C0!KS,GX(K),GYiKi.SZ(K),RE(Ki,L: * 

14030 FOR I = TO L: * 

14040 F'RINT#9.N(Ii: » 

14050 FOR J = TO NU!: * 

14060 PRINT#9,XT(I,J),YT(I.J),ZT(1,J!:'* 

14065 GOSUB 15000: * 

14070 NEXT J : NEXT I: * 
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race imaqe 



080 CLOSEOUT:* 

999 RETURN:'* 

000 REM Calcul et 

040 XL=XT(I.J)-XM: '» 

)50 YL=YT(I,J)-YM:'* 

J60 ZL=ZT(I,J)-ZM: * 

)90 XA=XL*JU+Yl*YU+ZL*ZU:* 

100 YA=XL*XV+YL*W+ZL*ZV: * 

110 ZA=XL*XW+YL*Ytt+ZL*2N: '# 

121 IF XA=0 AND YA=0 AND ZA=0 THEN ZA=0.O0: 

;22 RO = SOR(YA*YA+ZA*ZA;: * 

.25 IF XA=0 THEN B=90:B0T0 1512": * 

26 B=ATN!R0/XA):B=B*180,'PI: * 

27 IF XA<0 THEN B=B+1B0 : * 

30 IF YA=0 AND ZA=0 THEN A=90:SOT0 15180: 

40 IF ZA=0 AND YA >0 THEN A=-90:GOTO 1518C 

50 IF ZA=0 AND YAÎO THEN A=90:G0T0 15180: 

60 A=-ATN(YA/ZA):A=A*i80/PI : » 

70 IF ZA<0 AND YA >0 THEN A=A-180: * 

72 IF ZA (0 AND YA(0 TKEN A=A+l80: * 

74 IF ZA <0 AND YA =0 THEN A=1B0: * 

80 X=B*SINlA*PI/180i:Y=B*C0S(A*P: 180); * 

40 XE=313*X*300/AN :'« 

50 Y'E=20Û+Y'*300/AN : * 

iO IF J=0 THEN PLOT XE.ïE.CO: • 

70 IF JOO THEN DRAW XE.ïE.CO.:.: • 

79 RETURN: * 

» m TRACE TRIEDRE * 

)5 CO = 3: '* 

10 OPENIN"TRIEDRE": * 

» INPUT#9,C0(IO,BX,GY,6Z,RE.^ » 

» FOR I = û TO L: * 

•0 !NPLIT#9,N(Ii:'* 

iO FOR J = TO N(I): * 

INPUT#9,XTiI,J;,YTii.J:.ZT'I.Jj: * 

60SUB 15000: * 

NEXT J : NEXT I:* 

CLOSEIN:'* 

9 RETURN: * 

REM RECHARGER ET 

5 CD = 3 : ■'* 

3 OFENIN"SAUVDBJ" : 

3 iNPUT#9,C0(Ki,GXI 

) FOR I = TO L: * 

J INPUTtï.N(I): * 

i FOR J = TO Nil; 

) INPUT#9,«T(I,Ji,< 

) NEXT J : NEXT 

> CLOSEIN: * 

i IERA, "SAU'.OE: 



SINER OBJET 



,6YlK!,bZiki,RE(K).L: 



I.J! 



LOCATE l,l;PRINT"Har 



jLB 
)XF 
>ZK 
itl 
>PD 
JPH 
= YF 
; YB 
)YG 
yLn 
M 
>Bk 
jZO 

;>uv 
M 
-'LU 
>KE 
;-ZN 
>BY 



m 

>QN 



m 

,>UE 

m 
>DT 
>MR 
>NT 

!PX 

:>HB 
>LE 

m 
m. 



>UB 

m 
;>0E 
;mt 

m 

ïFY 
>HH 
,>PA 
>CA 

m 
m, 

;L6 
>Cfi 




v.y 



UCOPï ?":G0SUB 45020: IF C=15 THEN iSCREENCDPV. 1,2:CALL 

VAOOO:PRINT#B:PRINT#8 

18999 CHAIN"P18": * 

44000 REM Calcul de CE et de RE « 

44*10 GX=0:GY=0:6Z=0:N=0:RElKl=Û: » 

«II: ■« 

lit'* 

IX 
il.J 



4402 


J FOR 1=0 TO L: FOR J=0 TO Nil): « 


4402 


5 N=N+1: * 




4403 


J GX=GX+XT!I,J;: « 




4404 


J GY=GY+YT(I,J!: '* 




4405 


I GZ=SZ+ZT!I, Ji: * 




4406 


j NEXT J:NEXT I: * 




-40/ 


i SX(|:i=GX,'N: * 




4408 


J GY(Ki=SY/N: « 




4409 


i 6Z(rJ=EZ/N: * 




4410 


■ FOR 1=0 10 L:FOR J=0 TO NUir* 


4411 


R=SOR i (xTil, JJ-6X (kl ;* 


XTil.JI-GXi 




*lVT(I.J)-6ï!ki!+iZT(l,J 


-SZikj i*(ZT 


1412i 


IF RE/KKfi ÎHEN FEik>=fi: 


* 


44131 


NEXT J:NEXT I: * 




4499 e 

52011 


RETURN : « 
REM CADRE * 
CL5: « 




=2015 BORDER 14: * 






PLOT 0.0: s 






DRAW 639,0,3: * 




52041 


DRAW 639,399,3: » 




=2051 


DRAW 0.399.3: * 




;20ôC 


DRAW 0,0,3: * 

CO = fc'« 

RETURN: ' » 

REM Saisie caractère * 




:C, : 0., 


PRINT: '* 




5-5010 


PRINT"Votre chou; :": * 




=5020 


C*="":C$=INKEY$:IF ES»*'" 


THEN 65020: 


55030 


C=ASC(C$) : * 




://35 


IF C=13 OR C= 32 THEN C 


=27: GOTO 550 


15040 


IF C>96 THEN C=C-96:S0T0 


650o0: * 


5-5050 


IF C-.96 THEN C=C-64: * 




j-5060 


SOOND 1,20, 1: * 




,5535 


RETURN: * 





li.jl- 

Z<k;î 



L 



isting des 



■CE 
;>Ax 
JAE 



>Mx 
-MA 

m 



/PF 
>xk 
,'HB 

;« 
-'FE 
,>VA 
,-ML 
M 

m 

>EF 

;>ub 
>xj 

,'WO 
>KD 
;AP 
>GL 
/FA 



-•TB 

m 



REH DES 16 Nov B7 m 

: IF FS=1 THEN 230: * ;-HK 

: SOOND 1,20: CLS:PRINT"Pas d'accès direct a DES":PRINT «L 
FRINTMe vous renvois sur KODl., . l, :RUN"F'i8": '* 

îUSs't ,us 



15 PRINT'MENU PRINCIPAL" : PRINT: * , Oj 

20 PRINT K a-Creer un objet": f ;BN 

30 PRINT"b-Co«ipleter un ooiet": « ,HX 

40 PRINT M c-Stoci.:er un otjet": * Eh 

50 PRINT"d-Charqer un objet": * ;EB 

60 PRINT"e-Gestion de blocs a ! 'atajets":PfiI.ST"t-Beskjon a .-FP 
u cataioque":PRINT"g-Manipuler objet ou o lac 11 : FRINT'h-F 
usions dr,'erses":F , RINT"i-":F , RlBT")-Ficniër objets stand 
ards":FRINT"k-';oir" 

70 PRINT "I-Creer une itTi-age 1 : * ;Db 

80 FRINT li si- n :PRINT ll n-' , :PRlNï"o-":PfiiNT J p-": t gR 

180 F'RINTVuuitter": * i% 

195 IF EU "" THEN LOCAÎE 22.2l:PF;NT'Ob jet résident Mk 
":L0CATE 22.23:PRINT EL!: ♦ 

197 IF LO-t THE» LOCATE 3i,2';PPINT L*ii* -.',": ' >82 

198 LOCATE 1,22: » FE 
200 BOSOB 65000: REM Saisie caractère « F, 
205 IF C =11 THEN CHAIN"0OIR2"; « « 
210 IF G»17 THEN END: » -m 
220 IF CXI OR C>!7 THEN 10: * m 
225 IF C = 16 THEN GOSUB l7wu:60T0 10: « ,»|s 
230 ON C BOSOB 64000, b4ûu0, 64000, 5000. 64000, b400u, 6300 uC 
0, 63000, 60000, 64000, 60000. 27000,50000 

240 IERA, "<t.BAK": * /nD 

999 SOTQ 10 ujK 

5000 REM Chargement objet * ;v'Z 

5001 Fï=! : REM FLA6 de non trace * m 
5010 INPUT"Nom de 1 objet a tt4faer h :ELl(10iB.$=EU(KI: /-JE 



5017 ON ERROR BOTÛ 23000: '» 

5020 OPENIN EL$(Ki: * 

5025 INPUT#9.C0IK!,Gxik!,GY(! 

t a (L+l i chaînes » 

5030 FOR 1=0 TO L : REM Pour 

de a L * 

5040 INPOT #9,NiD: REH Nomht 









:TF 








/Ht 


K).L:REM L 


ob 


a 


XVH 


chaînes ai 


ant 




>EQ 



e de seqments sur chaîne * 



5050 FOR J=0 TO N(I):REM Pour tous les points de 

me d indice i * 

5060 INPUT #9,XTll,j!.i'T(l,J;,ZTa.Ji: * 

5065 IF FI=0 THEN BOSOB 15000: REM Tracer» 

5070 NEXT J:NEXT I: * 

5080 CLOSEIN: * 

5999 RETURN: * 

7000 REM CALCUL PARAMETRES VISION » 

7090 CX = XB - XM : Cï = (G - ffl : CZ = Zb - 11: 

7100 DD = SOR (CX*Cx t CY*CY ): * 

7110 IF DD = AND CZ > THEN TE = : M = PI , 

0T0 7210: * 

7120 IF DD = AND CZ ( THEN TE = : Kl =■-« i 

OTD 7210: « 

7130 Kl = ATN 1CZ/DDI 

7140 IF CX = AN» C» ; THEN TE = PI/2 : GOTO 7 



,'uZ 

•M 
m 

,'VE 
/OF • 
>DD 
,'FB 

m 

S >W 



7NJ 

* m 



7150 IF CX 



AND Cï 



THEN TE =-PI/2 : GOTO 7210 



7160 TE = ATN ICY/CX):* 

7170 IF CX < AND CY > THEN TE = PI + TE: '* 
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THEN TE = PI + TE: 
THEN TE = PI: * 



THEN TE : 



ni 



: ST = 


S1N 


(TE 




: 3K = 


3IN 


(Kl 




Il ■ Ci; 


♦ST . 


ZU= 


st 


= CT 




= 


* 


m = 


- SK*ST 


l 






: PRINT: 



NEïT TTiOS 



7180 IF CX < AND CY 

7190 IF CX < AND CY 

7200 IF CX = AND Cï 

7210 REM * 

7220 REM * 

7230 CT = COS (TES 

7240 CK = COS (Kl, 

7250 XII = Ck*CT : 

7260 tV = - il J 1 

7270 m = - SK*C7 

799"? RETURN : * 

10O00 REH dessin par bloc * 

10005 FI=0 : REH FLAb trace * 

10010 CLS:PRINT"DESSIN DU BLOC 1 

10040 FOR K = TO E: » 

10050 PRINT ELt(K):'* 

10055 NEXT K : * 

10060 FOR TT =0 TD (E+1H500 

10065 60SUB 62000: REM tracer cadre » 

10505 FOR k » TO E: * 

10510 GflSUB 5020: REH Charger et tracer * 

10520 NEXT K:'* 

10999 RETURN: '* 

11000 REM DESSIN PAR ELEMENTS * 
11075 SOSUB 62000: * 

11100 FOR K=0 TO E:* 

11110 GOSUB 5020:REH Charger et tracer * 

11120 NEXT K :'* 

11999 RETURN : * 

12000 REM Objet déjà présent en mémoire 

12005 IF L=-l THEN CLS:PRINT"Pas d'objet en menait 

, farceur !":SOUND 1,50 :FOR TT=1 TO 1000: NEXT îl 

TO 10 

12010 SOSUB 62000:REM tracer cadre 

12020 FOR I = TO L : FOR J = TO N!l!:REM POUR 

S LES CHAINES ET TOUS LES POINTS DE CES CHAINES 

12030 60SUB 15000: REM TRACE IMAGE ECRAN 

12040 NEXT J:NEXT I 

12999 RETURN 

15000 REM Calcul et trace image * 

15040 XL=XTII,J;-XH:'* 

15050 YL=YT!I,JJ-YM:'* 

15060 ZL=ZT(I,J!-ZM:'* 

15090 XA=XL*XU+YL»YUtZL*ZU: '« 

15100 YA=XL*XV+YL*YV+ZL*ZV: '* 

15110 ZA=XL*XWtYL*YW+ZL*ZW: » 

15121 IF XA=0 AND YA=0 AND ZA=0 THEN ZA=0.001:'» 

15122 RO » SQR(YA*VA+ZA*ZA): * 

15125 IF XA=0 THEN B=90:G0T0 15127: * 

15126 8=ATN(R0/XA):B=6*180/PI: * 

15127 IF XA<0 THEN B=B+180: '* 

15130 IF YA=0 AND ZA=0 THEN A=90:SDT0 15180: * 
15140 IF ZA=Û AND YA >0 THEN A=-90:60T0 151»:'» 
15150 IF ZA=0 AND YA<0 THEN A=90:G0T0 15180:'* 
15160 A=-ATN(YA/ZAi:A=A*180/PI: '* 
15170 IF ZA<0 AND YA >0 THEN A=A-1B0 : * 
15172 IF ZA m AND «KO THEN A=A+1B0:'* 
15174 IF ZA <0 AND YA =0 THEN 9=1»! '« 

40 



TOUTE 



15180 X=B*SIN(A*PI,<180;>:Y=B*C0StA*PI/18ûi: * 

15240 XE=313+X*200/AN:REt1 COORDONNEES ECRAN * 

15250 YE=2Û0+Y*200/AN : * 

15260 IF J=0 THEN PLOT XE, l'E : * 

15270 IF JOO THEN DRAW XE, YE, 1,0: * 

15999 RETURN: * 

18000 REM Acguisition éléments * 

18010 INPUT"Nombre d'éléments ":E:E=E-i: * 

18020 FOR K=0 TO E:PRINT"Elraent numéro ";K+1:INPUT EL» 

(K) : NEXT K: * 

18999 RETURN:'* 

23000 'Erreur sur objet 

23999 CLS:PRINT"Objet inexistant. .. ":SOUND 1.20:F0R tt= 

TO 1000:NEXT:EL$(K!="":EL*=' ,n ::RESUME 10 

27000 REM REPRESENTER UN OBJET * 

27005 CLS: * 

27010 PRINT"REPRESENTER UN OEJET":PRINT: * 

27020 PRINT:PRINT"a-Objet en mémoire": * 

27030 PRINT"b-Bessin par éléments": * 

27040 PRINT"c-Dessin par bloc":PRINT: * 

27050 GOSUB 65000 : PRINT : CD=C:REM Stockage choix t/p 

e de dessin * 

27055 IF QH THEN SOSUB 30000 

27057 IF CD=3 THEN GOSUB 31000 

27160 CLS : FRINT"a-Saisie point de vue au cla. ier";PF,I 

NT 

27170 PRINT"b- (Saisie écran! ":FRINT:GOSUB o5000:CS«ISI 

E=C:REM Stockage type de saisie * 

27190 PRINT: PRINT"Coordonnees observateur :":PRINT: '» 

27200 INPUT"X=";XM:'* 

27210 INPUT"Y=":YM: * 

27220 INPUT"Z=",-ZM:PR1NT: * 

27230 PRINT"Coordonnees point vise :":PR!NT: * 

27240 INPUT"XG=";XG:"* ! 

27250 INPUT"YG=";YG: * ! 

27260 INPUT"ZB=" i IB: PRINT: * ! 

27270 PRINT"Ouverture angulaire": * 

27280 INF'UT"20 degrés par défaut ";AN$: * 

27285 IF AN*="" THEN AN = 20 : SOTO 27350: * 

27290 AN=VAL(AN$): * 

27350 CLS : GOSUB 7000:REM Calcul des paramètres de vis . 

ee * 

27360 IF CD=2 THEN GOSUB 18000:REM saisie éléments * 

27370 ' ! 

27380 ON CD SOSUB 12000,11000,10000: * : 

27390 iSCREENCOPY, 2,1: SOUND 1,50 : LOCATE l,l:PRMT"Har , 

dcopy ?":S0SUB 65020: IF C=15 THEN ISCREENCOPY, 1,2:CALL 

iA000:PRINT»8:PRINT*8 

27998 CD=0:C=0: * : 

27999 RETURN:'* 

28000 REM CHARGEMENT FICHIER BLOC 
28010 INPUT"Nom du bloc ";BL$ 
28015 ON ERROR SOTO 45000 
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280» OPENIN BL* 
28030 INPUT m,ï 
2Su40 FOR K=ù TO E 
28650 INPUT W.ELÏtW 
28040 INPUT #9,C0iK; 
28070 INPUT #9,GXlki 
28080 INPUT #9,Gï(Ki 
28090 INPUT #9,62 iK) 
28100 INPUT #9,REltO 
28110 NEXT K 
23120 CL05EIN 
-0m RETURN 

30000 'OBJET EN MEMOIRE ? 

50002 ÎF LO-1 AND EL*="" THEN PRINT "Os jet sans nom p,- e 
sent en memoire":PRINT:PRINT"On qarde "'":GDSUB 65020; I 
F C=15 THEN 30999 

30010 IF EL* <>"" THEN PRINTODjet résident ' :ELÎ:FflINT 
:Pf!INT"On garde ?":GOStJB 65020 
30020 IF ELtO"" AND OJ5 THEN 30999 
30040 BOSUB 5000 
30999 RETURN 

21 000 REM BLOC EN MEMOIRE ? 

31010 IF BL* <>"" THEN PRINT "Bloc résident ":BL*:PRINT 
On garde ?":GOSUB 65020 
31030 IF BL*©"" AND tPi5 THEN 31999 
31040 PRINT:BOSUB 28000 
31999 RETURN 
45000 REM ERREUR SUR BLOC 

45999 SOUND l,20:CLS:FRINT"Bloc inexistant. . ":FOP TT=0 
TO 1000: NEXT : RESUME 10 

46000 REM ERREUR SUR IMAGE 

4o999 CLS:PRINT"l»age inexistante. . . ": SOUND i,20:F0ft TT . 
=0 TO 2000: NEXT: RESUME 10 

60000 ROUTINES NON ENCORE CREES ; 

60010 CLS:SOUND 1.50:PRINT"Routine non encore crée...": ; 
FOR TT=0 TO 200:NEXT 

OÛ999 RETURN ; 

62000 REM CADRE * ) 

62010 CLS:'* ; 

62015 BORDER 14: * ; 

62020 PLOT 0,0: '« ; 

;2030 DRAW 639,0,3 : '« > 

=2040 DRAW 639,399.3:'* ; 

=2050 DRAW 0,399,3: * > 

j2060 DRAW 0,0,3: * > 

=2999 RETURN: '» > 

63000 REM CHAINAGE SUR M0D2 ) 

63999 CLS:CHAIH"P19 > 

r4000 REM PASSAGE SUR M0D1 




64999 CLS: CHAINAIS": * 

65000 REM Saisie caractère * 
65010 PRINT:FRINT"Vctre choix : " : * 
65020 C*=INKEY*:iF G*»"* THEN 65020: 
65030 C=ASC(Ci): * 

65040 IF C/96 THEN L=L-96:G0TÛ 65535 
65050 IF K9é THEN C=C-64: * 
65535 RETURN: * 
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pour chaînage su 



2 IF Fi 

3 FD=1: 



=1 THEN 230: « 

L = - 1(881 Initiaaser 



sL+1 chaînes dans 



4 DIM XTi4o,12;.rT!49,12i,:Ti49,12f,Nl4?).EH!2v).C0(29 

!,SX!29i,Gï(29;,G2(29),RE(29i,!E(12i.ïEa2;.XEBIS!l2;.r 

EBIS(12J,3T$!20i: » 

7 BOSUB 240O0:REM Choix des couleurs* 

10 CLS: * 

15 PRINT"MENU PRINCIPAL" :PRINT: ♦ 

20 FRINT"a-Creer un objet": * 

30 PRINT"b-Compieter un objet": * 

40 PRINT"c-Stocker un objet": * 

50 PRINT"d-Charqer un objet": * 

60 F'RINFe-Gestion de blocs dobjets":PRlNT"H3estion d 

u catalogue":PRINT"g-Mampuler objet ou bioc":PRINT"h-F 

usions diverse5":FRINT"i-":PRINT"j-Fichier objets stand 

ards":PRINT"k-Voir" 

70 PRINT "i-Creer une image": * 

80 PRINT"m-":PRINT"n-":PRINT"o-":PRINT"p-": * 

180 PRINTVOuitter": * 

195 IF EL* O "" THEN LOCATE 22,21:PRINT"0bjet résident 

".-LOCATE 22,23:PRINT EL*:'* 

197 IF LO-1 THEN LOCATE 31,23:PRINT L+l:" ch.": * 

20* SOSUB 65000: REM Saisie caractère: * 

205 IF OU THEN CHAIN"00IR2": '* 

210 IF C=17 THEN END: * 

220 IF C = 12 OR C=9 THEN CHAINEES": * 

230 ON C GOSUB 9000, 9010, 8000,5000, 21000,22000,64000,6 

4000,63000,20000: REM etc.... 

999 iERA,"*.bak":CLS:GOTO 10:REM Boucle MENU* 

1000 REM CREER UN BLOC * 

1010 CLS : PRINPCREER BLOC D OBJETS": PRINT: * 

1020 INPUPNom du bloc ";BL*: '*. 

1030 INPUT"Nombre d'éléments ":E: * 

1040 E=E-1:'* 

1050 FOR K=0 TO E: * 

1060 PRIW'Objet numéro ";K+1: * 

1070 INPUT EL*lK):60SUB 5020:REM Charger objet * 

1090 NEXT K :* 

1100 BOSUB 600O:REM Stockage fichier-bloc * 

1999 RETURN : * 
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1000 REtl LECTURE BLOC « 

2010 CLS : PRINT'tECTURE BL0C":PRINT: * 

2020 BOSUB 31000 

2035 PRINPBloc ";BL*:FRINT: * 

2040 FOR K=0 TO E: * 

2050 PRINT ELtUO: * 

2060 NEXT K î'« 

2070 FOR TT=0 TO (E+ll*200 : NOT Tï:REM Temporisation 

* 

2999 RETURN: * 

3000 CLS:F , F:INT 11 DETRLiIRt BLOC+OBJETS" 

3999 RETURN 

4000 CLS:F'RrNT"COFIE BLOC+OBJETS SUR AUTRE DISQUETTE"!? 
RINT 



(I,J),ZTiI, 



BL(: 



4999 RETURN 

5000 REM CHARGER UN OBJET: * 
5010 INFUT'Nom de 1 objet a c 
'* 

5017 ON ERRQfi 60T0 23000 
5020 OPENIN EL* (10: » 
5025 INPUT#9,C0lRi,aX(ki.6Mk 
t a (L+i? chaînes * 
5030 FOR 1=0 TO L 
de a L * 
5040 INPUT #9,H(I! 
5050 FOR J=0 TO NI 
ine o indice I * 
5060 INPUT #9,ïT(I 
5070 NEXT J:NEXT I: * 
5080 CLÛSEIN: « 

5999 RETURN: * 

6000 REM STOCKAGE BLOC * 
6O05 PRlNT''Je stocke le tjioc 
6010 OPENOUT BL*: * 

6020 PRINT #9,t: * 
6030 FOR R=0 TO E: * 
6040 PRINT #9.EL$iR): * 
6050 PRINT #9,C0(Ki: * 
6060 PRINT tt9,6X (Ri : * 
6070 PRINT #9,Gï(Kh * 
6080 PRINT #9.6ZiK) : * 
6090 PRINT #9,RE(K):'* 
ôlôO NEXT R: * 
6110 CLOSEOUT:'* 

6999 RETURN: '* 

7000 REM CHARGEMENT FICHIER BLOC * 
7005 PRINT'Je charge le dloc ",-BLt 
7007 ON ERROR GOTO 45000 

7010 OPENIN BL$: » 
7020 INPUT #9,E : * 
7030 FOR R=0 TO E: * 
7040 INPUT #9,EL*!Ki: * 
7050 INPUT #9,CÛ(Ri: '» 
7060 INPUT.#9,GX(K):'* 
7070 INPUT #9,GY(K): * 
7OB0 INPUT #9,GZ(K): * 
7090 INPUT #9,RE(K): * 

42 



'iELS(R):EL*=ELSi 



Ri,RE!Ri,L:REM L obje 
REM Pour toutes les chaînes ailant 



REM Nombre de segments sur chaîne ■ 
:REM F'our tous les points de ia ch 



7100 NEXT R: * 
7110 CLOSEIN: * 

7999 RETURN:'* 

8000 REM STOCKAGE OBJET 

8010 INFUT"Nom de 1 objet a 5tocker":EL*:EL*iK!=ELS 

8015 SÛSUB 44Û0Û:REM CALCUL GX,GY,GZ,RE 

8020 OPENOUT EH!K) 

B025 PRINT #9,C0(K),GX(Rj,SY!R),GZ(KS,RE(k),L:REM L 
CJ A flflj ruAIMCC 

B030 FOR 1=0 TO L: REM Pour toutes les chaînes ailan 

e a L 

8040 PRINT #9,NiI):REM Nombre de segments sur chaîne 

8050 FOR J=0 TO KUii REM Pour tous les points de la 

aine d'indice I 

8060 PRINT #9,XT(I,J},YT(I, JJ,ZT(I,J> 

8070 NEXT J:NEXT I 

8080 CLOSEOUT 

8999 RETURN 

9000 REM CREER UN OBJET 

9005 L=-i:R=K+l:EL*iRi="":EL*="" 

9010 CLS:PRINT"CREER UN OBJET":PRINT 

9020 PRINT"a-Creer chaîne par chaîne" 

9030 PRINPb-Objet de révolution" 

9040 PRINT'c-Travailler sur un objet standard" 

9050 PRINT"d-Creer un prisme" 

9060 FRINT"e-Creer un cercle" 

9070 PRINPf-Creer un arc de cercle" 

9090 GOSUB 65000: REM Saisie caractère 

9100 IF CÏ7 OR C =-51 THEN 9999 

9102 IF KO THEN 9000 

9110 ON C GOSUB 26000: REM, etc.... 

9999 RETURN 

14000 REM INCORPORER LA CHAINE A L'OBJET* 

14999 RETURN: » 

18000 REM ARCTANGENTE* 

18999 RETURN:'* 

20000 'FICHIER OBJETS STANDARDS 

20999 RETURN 

21000 REM GESTION DE BLOCS D OBJETS* 

21010 CLS :PRINT"GESTION DE BLOCS D" OBJETS" : FRINT: * 

21020 PRINT"a-Creer un bloc d'objets": * 

21030 FRTNT"b-Charger et lire un fichier bloc" 

21040 PRINT"c-Degraisser un bloc": * 

21050 PRINT"d-Detruire un bloc": * 

21060 PRINT"e-Copier ensemble standard": * 

21070 PRINT"t-Copier un bloc et ses éléments": * 

21080 F'RINT"g-Detruire bioc+objets": '* 

21090 PRINT'h-Compacter un bloc": * 

21100 PRINT'i-Fusion blocs" 

21110 GOSUB 65000: * 

21130 IF C>9 OR C < THEN 21999 

21135 IF C=9 THEN C=8 : CHAIN"K0D2 

21140 ON C GOSUB 1000, 2000, 28000, 29000, 27000, 4000, 300C 
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21999 RETURN 

22000 'OPERATIONS SUR CATALOGUE 

22999 RETURN 

23000 'Erreur sur objet ™" 
23999 CLS:PRINT"Ob.jet inesistait...*:SOSJffl 1,20:F0R tt= M 
TO 1000:NEXT:EL*!K)="":EL*=""::RESUME 10 

24ÙO0 REM CHOIX DES COULEURS • >™ 

24999 RETURN:'* xG 

25000 REH TRACE EN PLAN DE L'OBJET EXISTANT * >* 

25999 RETURN:'» ' <H 

26000 REH CREER DES CHAINES AU CLAVIER ™ 
26010 IF L=49 THEN PRINT"Trop de chaines.desole.. .":BOS >SP 
UB 65020: BOTO 26999 

26020 L=L+1: REM Incrementer eHectit de chaînes • IU 

26025 CLS: PRINT M SAISIE CHAINES AU CLAVIER":PRINT H» 

26030 INPUT"Nombre de segments ";N(LI ; ' nl * 

26035 IF N(Li>12 THEN PRINT "12 segments aasi !" : 8BH >lf 

B 65020: BOTO 26025 

26040 FOR J=0 TC MU; REM Boucie de saisie de coordonn >JP 

ees point 

26050 PRINF'Paint numéro " : J + 1 

26060 INPUT"XT=";XT(L,J) 

26070 INPUT"YT=";YTlL,Ji 

26080 INPUT"2T=";ZTi.L,J) 

26090 NEXT J 

24100 PRINT" Une erreur 

C = 15 THEN 26025 

26130 PRINT" Une autre chaîne 

F C = 15 THEN 26010 

26999 RETURN 

27000 'COPIER ENSEMBLE STANDARD 

27999 RETURN 

28000 'DEGRAISSER UN BLOC 

28999 RETURN 

29000 'DETRUIRE UN BLOC 
29010 SOSUB 31000 

29030 PRINT: IERA, BLt:EL*="" 

29999 RETURN 

30000 'IDENTIFICATION OBJET 

30002 IF L O -1 AND EL* ="" THEN PRINT"Objet sans n 
om présent en nemoire":PRINT:PRINT"0n garde ?":S0SUE 65 
020: IF C = 15 THEN 30999 
30010 IF EL* Ô "" THEN PRINT"0bjet résident ";EL* 

:PRINT:PRINT"On garde '?": SOSUB 65020 
30020 IF EL* <> "" AND C « JS THEN 30999 
30040 BOSUB 5010 

30999 RETURN 

31000 'IDENTIFICATION BLOC 

31010 IF BL* O "" THEN PRINT"Bloc résident ";BL*:PRINT 
:PRlNT"0n garde ?":G0SUB 65020 
31030 IF BL* G "" AND C= 15 THEN 31999 
31040 PRINT: INPUT"Nom du bloc ";BL*:60T0 7000 
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31999 RETURN *S 

32000 REH CREER UN CERCLE * ■'* 

32999 RETURN: * «F 

33000 REM CREER ARC DE CERCLE* >&■ 

33999 RETURN: » >XS 

34000 REM CREATION OBJET DE REVOLUTION* >JB 

34999 RETURN: * ;SH 

35000 REM OBJET D AJ.E OX» HJ 

35999 RETURN: * >M 

36000 REM OBJET D AXE OY* AM 

36999 RETURN: « '■«' 

37000 REM OBJET D AXE 02: » : LT 
37999 RETURN: * 'M 
42000 'COMPACTAGE BLOC M 
42010 GOSUB 31000 >LL 
42020 K=0: BOSUB 5020 38 
42030 FOR K=l TO E ■ Li 
42040 OPENIN EL* (Kl 'NR 
42050 INPUT#9,C0lK),GX<Kj,Gï(fJ,GZi(:j,RElî-).Ll ;0V 
42060 IF L+L1;49 THEN PRINT"C0MPACTA6E IMPOSSIBLE. . .":S ; VE 
OUND 1,20:G0SUB 65O20:S0T0 42999 

42070 FOR 1=0 TO Ll 

42080 L=L+l:INPUT#9.NiL) 

42090 FOR J=0 TO NIL! 

42100 INPUTt9,XTiL,Ji 

42110 INPUTt9,ïT(L,Ji 

42120 INFUT#9.ZT(L,J) 

42130 NEXT J:NEïT I 

42140 CL0SE1N 

42150 NEXT K 

42160 BL*="":EL*="" 

42999 RETURN 

44000 REH CALCUL DE bï.Gï.GZ et de RE * 

44999 RETURN: '* 

45000 REH ERREUR SUR BLOC 

45999 SOUND l,20:CLS:PRINT"Bloc inexistant. .":FQR T1=0 
TO iOOOiNEXT :RESUME 10 
54000 REH CREER UN PRISME» 
54999 RETURN:'» 
60000 REM DEFINITION DU TYPE DE SAISIE DE CHAINE PLANE* 
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RETURN: '* 

REM SAISIE ECRAN* 

RETURN: '* 

CLS:PRINT"Rautine non encore creee":SOUND 

■0 TO 200: NEXT 

RETURN 

REH CHAINAGE SUR H0D2 

CHAINT19 

REM Saisie caractère* 

PRINT: PRINF'Votre chois :": * 

C*=INKEY*:IF C*="" THEN 65020:'* 

C=ASC(C*i:'* 

IF CJ96 THEN C=C-96:60T0 65535: * 

IF C<96 THEN C=C-64:'* 

RETURN:"* 
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H^^Torv il n'y a pas d'erreur d'impression ! C'est un 
^Lj message vidéo que j'ai réussi à intercepter avec 
X. ^B beaucoup de mal. Hélas, mes moyens 
techniques n'étaient pas à la hauteur, la liaison 
était médiocre et le parasifage très fort... Ainsi 
l'image captée, que voici, n'est pas de très bonne 
qualité. A vrai dire, elle est illisible. J'avais 
néanmoins décidé de la montrer au célèbre 
professeur AMSTRADOVIC dont je me flatte d'être 
un cousin très éloigné. Il fut tout d'abord surpris, 
mais un sourire malicieux remplaça aussitôt 
l'étonnement que je lisais sur son visage. "Cher 
cousin, me dit-il, pour être lue, cette image doit être 
traitée au préalable. Personnellement, je n'ai pas le 
temps, mais voîci un excellent ouvrage dans lequel 
vous trouverez tout, ou presque, sur ce sujet". En 
disant cela, il me tendit un énorme volume. Malgré 
un léger frisson que j'ai ressenti au vu du numéro 
de la dernière page (6128), je le remerciai 
vivement et le quittai en regrettant d'avoir mis le 
pied dans sa tanière de savant. Dès les premières 
pages je me rendis compte que le traitement 
d'images nécessitait soit un matériel électronique 
perfectionné soit un ordinateur, qui, à défaut d'un 
traitement analogique, pourrait permettre un 
traitement numérique de l'image. Mon fils avait un 
AMSTRAD CPC. J'optai donc pour cette solution, la 
seule à ma portée, maïs qui présentait un 
inconvénient : je ne pouvais disposer de la machine 
qu'après la destruction du dernier vaisseau ennemi, 
ou après la libération de la princesse une fois 
l'énigme résolue ! Ceci m'obligea à travailler tard 
dans la nuit, ce qui n'améliora nullement mon 
humeur. La lecture du fameux ouvrage y était aussi 



Ll 



pour quelque chose. Je vous donne un tout petit 

extrait de la partie théorique : 

"Un point P est d-inessentiel pour E si : 

1) ND(V(P)niEu|P!]) = ND(|V(P)-PjnE) 

2) N (V(P)niEuiPJ!) = N (|V(P)-P]nE'" 



Cela vous plaît-il ? Moi, j'adore ! Pour vous éviter 
une pareille lecture j'ai décidé de vous livrer 
l'essentiel sous une forme plus simple. Les petits 



programmes en BASIC vous aideront à mieux 
comprendre les principes et leur mise en pratique. 
En aucun cas ils ne doivent être considérés comme 
routines utilitaires. Seules les routines en langage 
machine seront assez rapides (et encore). 

GENERALITES 

Avant de vous parler de ces programmes voyons 
quelques notions élémentaires. 
Une IMAGE est composée d'une GRILLE de 
POINTS. Ces points sont définis par les positions 
qu'ils occupent dans l'image d'une part et dans leur 
VOISINAGE IMMEDIAT, d'autre part. Si l'image 
est en COULEUR, chaque point est aussi défini par 
sa couleur. Dans le cas d'une image en "noir et 
blanc" les couleurs sont remplacées par les 
NIVEAUX DE GRIS. Dans le cas où une image ne 
comporte que deux couleurs, ou deux niveaux de 
gris, il s'agit d'une IMAGE BINAIRE. En jetant un 
coup d'ceilsur notre énigme nous pouvons constater 
qu'elle est composée des chiffres à 9.' De deux cho- 
ses l'une : ou cette image représente un texte codé, ou 
c'est une image où chaque chiffre représente soit une 
couleur, soit un niveau de gris. Admettons la deuxième 
hypothèse. 
Une grille peut être CARREE ou HEXAGONALE. 
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Chaque point est donc représenté soit par un carré 
(ou rectangle), soït par un hexagone. Pourquoi pas 
par un triangle ! Nous verrons cela plus loin. 
Apparemment, notre image est composée d'une 
grille carrée. 

Chaque point, cellule carrée ou hexagonale, a des 
voisins immédiats. Nous pouvons distinguer deux 
types de voisins immédiats VOISINS DIRECTS et 
VOISINS INDIRECTS. Les voisins directs sont les 
points qui se situent sur le CHEMIN DIRECT 
réunissant les centres des cellules, c'est-à-dire le 
chemin le plus court. Le chemin le plus court passe 
par les côtés de la cellule. Celui passant par les 
sommets étant bien entendu plus long. Les voisins 
directs d'une cellule sont donc les cellules ayant un 
COTE COMMUN avec la cellule considérée. La 
figure n° 1 montre une grille carrée et une grille 
hexagonale. La grille hexagonale n'a que des 
voisins directs, alors que la grille carrée a quatre 
voisins directs et quatre voisins indirects. En prenant 
le chemin direct on peut en partant d'un point 
traverser toute l'image. Si les cellules étaient 
triangulaires le chemin direct ne serait pas une ligne 
droite. Pour cette raison les cellules triangulaires 
sont à exclure. 

Comme la définition, le traitement d'un point 
dépend soit de la totalité de l'image, soit du 
voisinage immédiat de ce point. On peut prendre 
en compte les huit voisins plus le point traité, 
comme on peut négliger le point en question, ou les 
voisins indirects. Bien entendu, les résultats ne 
seront pas les mêmes. 

Chaque point de notre image sera donc modifié 
par le traitement approprié en fonction de ses huit 
voisins et de lui-même. Notre image comporte 21 
lignes et 40 colonnes, soit 840 points. Pour chaque 
point il faut examiner 9 points, ce qui fait au total 
840x9 = 7560 opérations. Sachant qu'en mode 2 
l'écran comporte 640x200=128000 points, 
calculez le nombre d'opérations nécessaires. La 
nécessité des routines en langage machine est 
évidente, mais continuons. 

Il existe un troisième ensemble de points qui se situe 
par s'on importance (dimensionnelle) entre le 
voisinage immédiat et la totalité de l'image. C'est 
la REGION. Les régions sont séparées entre elles 
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ar des FRONTIERES. On distingue deux types de 
rentières : FRONTIERE EXTERIEURE et 
FRONTIERE INTERIEURE. Imaginez deux régions, 
une grande et une petite entièrement INCLUSES 
dans la première. Ces deux régions ont une 
FRONTIERE COMMUNE. Pour la grande région 
c'est une frontière intérieure et pour la petite région 
c'est une frontière extérieure. Les régions ayant une 
frontière commune sont ADJACENTES. L'intérêt des 
régions et des frontières apparaît immédiatement : 
chaque région correspond à un niveau de gris (ou 
à une couleur) et chaque frontière correspond au 
CONTOUR, qui est le DESSIN à proprement 
parler. 

Vous connaissez maintenant le strict minimum de 
définitions concernant l'organisation de l'image. 
Notre objectif est de trouver le, ou plutôt les 
moyens pour améliorer (ou dégrader) une image, 
afin de ta clarifier ou de lui donner une dimension 
artistique. Il existe des moyens électroniques, mais 
nous avons opté pour les méthodes numériques. 
Pour cette raison, dans ce qui suit nous éviterons 
toutes les notions théoriques destinées aux 
électroniciens plutôt qu'aux informaticiens. 
Résumons l'essentiel. 

L'AMELIORATION DE L'IMAGE a pour but le 
renforcement de la QUALITE VISUELLE de l'image. 
Ceci peut être obtenu par le convertion de l'image 
dans une forme aussi intelligible que possible afin 
de pouvoir procéder a son ANALYSE, soit par 
l'homme, soit par la machine. Il s'agit dans ce 
dernier cas de l' ANALYSE AUTOMATIQUE. Cette 
analyse automatique est, dans la plus part des cas, 
au service de la QUANTIFICATION SELECTIVE, 
rendue possible par la RECONNAISSANCE DES 
FORMES (médecine, industrie, recherche). Les 
méthodes utilisées peuvent être détournées au profit 
de l'art graphique. 

A l'origine, l'image destinée au traitement existait 
dans la nature (à moins qu'il ne s'agisse d'une 
création). Elle a été déformée et ERODEE par les 
CAPTEURS (simple appareil photo par exemple), 
lors de sa TRANSMISSION (T.V.), ou de sa 
réception (antenne), ou tout simplement 
VOLONTAIREMENT, ce qui est le cas de notre 
énigme. 
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La RESTAURATION tend à reconstituer cette image 
afin qu'elle devienne une reproduction aussi fidèle 
que possible de l'image d'origine. 
Il n'existe pas de théorie générale de 
l'amélioration. Tout simplement parce qu'il n'est 
pas possible de définir objectivement et avec 
précision ce qui est la qualité d'une image. Surtout 
si cette définition doit comprendre aussi Ta notion 
de la valeur artistique comme c'est le cas pour une 
image dont l'original est une œuvre d'art. Il faudra 
donc utiliser des méthodes particulières et 
uniquement en tant qu'outil. Nous devons rester 
seuls juges des résultats obtenus afin de choisir le 
chemin le plus approprié selon notre goût et notre 
désir. 

Il existe quatre CLASSES de méthodes 
d'amélioration (ou de dégradation) : 

1 . MODIFICATION DE L'ECHELLE DES GRIS - 
METHODES PONCTUELLES 

2. MODIFICATION PAR TRANSFORMATION 
SPATIALE - METHODES LOCALES 

3. MODIFICATION PAR TRANSFORMATION DE 
FOURIER - METHODES GLOBALES 

4. RENFORCEMENT DES NIVEAUX DE GRIS OU 



COULEUR - METHODES DE COLORATION 
Avant de nous attaquer à l'étude de ces méthodes, 
il faut créer l'image à traiter, c'est-à-dire notre 
image-énîgme. Pour cela nous utiliserons le 
programme du listing n° 1. 

Saisissez le programme et sauvegardez-le sous le 
nom "CRENIG" sur une disquette formatée et 
vierge de tout autre enregistrement. A la fin de 
notre étude elle contiendra tous nos petits 
programmes, l'image-énigme et l'image en cours de 
traitement. Certaines lignes du programme ne 
comportent rien. Conservez-les, car tous les 
programmes à venir seront bâtis sur le même 
canevas. Les lignes identiques ou très proches 
auront le même numéro à partir des centaines. Ceci 
raccourcira grandement les saisies. 
Une fois le programme sauvegardé, faites-le 
fonctionner. L'image sera créée, invisible et 
n'apparaîtra qu'une fois érodée et complétée par 
les bruits parasites. Elle sera sauvegardée 
automatiquement par le programme sur votre 
disquette qui doit rester dans le lecteur et ne doit 
pas être protégée! 
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1010 

1020 

1030 

1040 

1050 

1060 

1070 

1080 

1090 

1100 

1110 

1120 

1130 

1140 

1150 

1160 

1170 

1180 

11% 

1200 

1210 

1220 

1230 

1240 

1250 

1260 

1270 

12B0 

1290 

1300 

1310 

1320 



CREATION DE L IMAÛE-ENIGME "CRENI6" 

MODE UtfMBON 1,40. 23. 25:WIMDQW#1. 1.40. 

DIM re<21. 40). de 111.40) 
B03UB 1500 

s8=0: k=0 

FOR 1=1 10 21:LQCATE l.liPRINT i. 
FOR ,i=l TO 40 
LOCATE 10.1:PRINT i 
IF 1=1 THEN k=k+3:60TÛ 1170 
IF ,j=l THEN k=i:+l:G0Tû 1140 
58=sB+ec(l-l,.]-ll 
s8=sB+ec il -!..]! 
IF .5=40 THEN k=fc+l:S0T0 1170 

58=5B+=Lil-l..!+l) 

IF ,1=1 THEN k=k+i:B0T0 1190 

s8=5S+=eu..i-l) 

=B==8+eeii,,i) 

IF .1=40 THEN k=k+l:60T0 1220 

s8=5B+ec(i,, î+l! 

IF 1=21 THEN k=k+3:B0T0 1280 

IF .1=1 THEN k=k+l:60T0 1250 

s8=sS+ec!»+l,H! 

sB=5fl+ecii+l,.i! 

IF j=40 THEN k=k+l:G0TÛ 1280 

sB=sB+ec!i+i, j+1) 

dc!i.j)=i58+k*4Bi/9 

IFdc(i,jK>4B THEN 1330 

r=RND(l!-!rC4!*2-(i>18i*2 

r=r-(j/10=INT(,i/10ij*2 

dc!i,.j)=r+48 



m 

jXE 
0F 

:>xg 

>UB 
>HE 
>XK 

;>J6 

>EH 
>LF 
>TV 



H» 

;0G 

•m 
,>pp 
>m 

,>AH 
>PF 
>AR 
«fi 
,0F 

m 
>flw 

,>QG 
)TR 

m 

>XB 
>VA 

m. 



'1330 s8=0: k=0 
1340 NEXT i 
1350 NEXT i:CLS#i:a*="" 
1360 FOR 1=1 T0 21 
1370 FOR ]=! T0 40 
13B0 3#=a*+£H»tffeU.î)l 
1390 NEXT j:PRINT«[.aS;:at="' i 
1400 NEXT 1 
1410 ' 

1420 CLS:SAVE''Eh!lG!1E.5CR".b.ï£û0ô,M000 
1430 END 

1500 FOR 1=1 TD 21 
1510 FOR j=l T0 40 
1520 ec u..] )=48 
1530 NEXT j 
1540 NEXT 1 

1550 FOR 1=4 TO 16 STEP 3 
1560 IF i,>6 AN» K16 THEN 0=4 ELSE j=6 
1570 FOR k=l T0 6 
1580 READ a,b 
1590 FOR 1=1 T0 a 

1600 ec(i,,i)=57:=c(.i+l..i)=57:ec!i+2..i)=57:.j=j+l 
1610 NEXT * 
1620 j=.j+b 
1630 NEXT I: 
1640 

1650 NEXT 1 
1660 RETURN 

1670 DATA 5,5,8,6,5.6,0.0.0.0,0,0 
lûBO DATA 3.3,3,3,3,3.3,3,3,3,3.4 
1690 DATA 3,9,3,3,3,3,3,10,0,0,0,0 
1700 DATA 3,3,3,3,8,4.3,3,3,4,0,0 
1710 DATA 5,5,3,11,5,0,0,0,0,0,0,0 



>tfc 

m 

;LT 
;>lS 
ïTH 
,>XD 
,'VF 
>XJ 
/HL 
/Ï6 
;LN 
>LC 
,:>AC 
.;* 
>«A 
XRH 
>CH 
/FF 
>HK 
>LJ 

m 

>Nk 

>xc 
>wc 

>FG 
>ÏG 
>1K 
>ZG 
>YC 
>VZ 
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BILLARD AMERICAIN 



Ce logiciel est un simulateur de billard 
américain ou "pool" avec 15 boules 
numérotées et une blanche. Il y a en fait 2 
règles, la première est décrite dans les livres 
spécialisés et celle qui est utilisée dans les 
"cafés". La différence essentielle se situe à 
plusieurs niveaux : le comptage des points, les 
pénalités, le côté du joueur. Ces deux règles 
sont donc intégrées dans le logiciel, les 
joueurs choisissant celle avec laquelle ils 
préfèrent jouer. Est incluse aussi la façon de 
tirer sur la boule de choc, soit par un 
affichage de la queue de billard directement 
sur la table, soit par une représentation sur le 
côté, cette dernière façon de faire étant 
nettement plus difficile pour tirer dans une 
direction particulière. Les principales règles 
sont incluses dans le programme. 

LE PROGRAMME se compose de plusieurs modules 
chaînés entre eux. Le programme "BILLARD" est 
un chargeur qui positionnée HIMEM à &86AE afin 
de pouvoir charger le programme "DATA. IMG", 
résultat de la compilation d'une image faite à par- 
n ATl n r?c 9 i C ' e ' de dessin - Le programme suivant appelé 
DATA. DEC est un décompilateur oui va afficher le des- 
sin de présentation pendant que les autres program- 
mes se chargent. On trouve le programme OBJET qui 
est le programme en langage machine de déplacement 
des boules. Puis la procédure se termine par le char- 
gement du programme BASIC principal. Une fois 
chargé, on demande au joueur les règles désirées, c'est- 
à-dire les règles officielles ou les règles de "café" en 
fonction de la réponse, le calcul des points sera diffé- 
rent. L'affichage direct est le mode le plus simple car 
la représentation de la queue se fait directement sur la 
table, alors que l'affichage sur le côté est une repré- 
sentation de (a direction par rapport à la boule. Une 
fois ces questions complétées, l'écran devient noir puis 
au bout de quelques instants, l'écran de jeu apparaît. 
A gauche, il y a la table de billard vue du dessus A 
droite, en haut, il y a les cases contenant les boules qui 
tomberont dans les blouses. En dessous les scores des 
joueurs s'inscrivent. Juste au-dessus du score d'un 
joueur, se trouve un point jaune indiquant lequel des 
deux joueurs va jouer. Dans le cas des règles de café, 
le joueur ne s'affiche pas aussi longtemps qu'aucune 
boule n'est tombée dans une blouse. Les joueurs jouent 
donc à tour de rôle. A droite de la table se trouve la 
valeur des boules, elles sont numérotées de haut en bas 
et de gauche à droite, les dizaines ne sont pas indiquées 
mais sont comptées dans le jeu. Suivent trois tableaux 
de détermination du tir. La boule blanche isolée ou 
entourée par un segment blanc représente la boule de 
tir. Dans le cas de la méthode de tir sur le côté, le seg- 
ment blanc représente la direction du tir. Juste en des- 
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sous se trouve une représentation symbolique d'une 
boule et la fin de la queue afin de simuler la position 
de la queue par rapport à la boule pour lui imprimer 
un effet. Pour finir, en dessous, se trouve une règle gra- 
duée qui détermine la force du tir. 



Le programme assembleur 



De &9000 à &935F, il y a les dessins des boules de 
billard. Etant donné que l'affichage se fait en mode 0, 
il y a 2 représentations pour une boule. Le dessin des 
boules de deux couleurs a été inversé afin de simuler 
un mouvement de la boule. Théoriquement la gestion 
des sprites se fait par un programme spécialisé qui com- 
prend la hauteur et la largeur. Ici, ce n'est pas néces- 
saire étant donné qu'il n'y a qu'un seul type de sprite 
en l'occurrence les boules de billard. En fonction de la 
position paire ou impaire de la boule, on affiche l'un 
ou l'autre sprite de la même boule. 
Les tables RTA 1 et RTA2 sont celles utilisées par le pro- 
gramme de gestion de l'effet. En fait, l'effet se maté- 
rialise par une modification de l'angle, soit dans le sens 
trigonométrique, soit dans l'autre sens ; il y a donc deux 
tables Pour avoir la déviation modifiée, il suffit de cher- 
cher dans la table la valeur de DX et DY, puis de pren- 
dre les deux valeurs suivantes. 

Table DRO et GAU : les deux premiers octets donnent 
I indice dans la table, on obtient les coordonnées d'af- 
fichage de la boule quand elle tombe dans un trou il 
suffit d'afficher aux coordonnées X et Y la boule cor- 
respondante puis d'incrémenter le pointeur, pour pré- 
parer la boule suivante. 

a table TT est la table des trous... Elle est divisée en 
trois colonnes, les deux premières colonnes sont les 
positions des trous, la troisième donne l'octet pour la 
mise à jour dans la table TBT. 

Les octets FPX et FPY contiennent la future position de 
la boule avant affichage. 
Les octets TBXY mémorisent la table des chocs. 
Les octets APXY contiennent la position actuelle de la 
boule. 
Les octets RE servent pour affecter les registres IX et IY. 



E 



U TABLE DES CHOCS. TBC 



— GAUCHE 
DROITE 



Odet 
TBC-1 



7 6 5 1 3 il 



BAS- 

MILIEU - 
HAUT- 



-HAUT 
- MILIEU 
-BAS 



Lorsqu une boule tombe dans un trou grâce à l'octet 
de la troisième colonne de la table TBT, on met à jour 
cet octet, ce qui permettra de déterminer si elle tombe 
a droite ou à gauche. 
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Pointeur dans la table 



Nombre de chocs au 
cours du coup joué 

Choc de côté (bande) 



Adresse des boules 
choquées 



Les tables Tl à T8, en fonction du déplacement de la 
boule, il y a choc si et seulement si une boule se trouve 
aux positions adéquates, ces tables donnent les posi- 
tions relatives en fonction du déplacement de la boule 
sachant que le premier octet donne le nombre de posi- 
tions possibles d'une boule. 
TABLE TCB 



EE 



M 



t 7 11 II IVB C E F D 1 1 1< I I 7 II « A 
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INUT1ISES 
ADRESSE SPRITE IMPAIR 
ADflESSESPRITEPAIR 
Affl 

EFFET .CHOC 
•DECIMALE- DELA VITESSE 
ANGLE DE CHOC MOYEN 



INUTILISE 

AN1 

INUTILISE 

MB DE CHOC BANDE 

OCTET SS 

VITESSE 

DX 

Dï 



ADR. D/AFF. DU SPRITE 



Table relative pour chaque boule 

En et 1 on a l'adresse du sprite à afficher. 

Y et X est la position de la boule. 

DY et DX correspondent à la déviation en x et y. En 

faisant une rotation sur ces octets, s'il y a débordement, 

alors il y a modification de la position de la boule. 

Vitesse : reflet de la vitesse de la boule, elle varie de 

1 à 10. 

L'octet SS est spécial : en fonction des bits positionnés 

et des octets DY et DX on peut déterminer le sens et la 

direction de la boule. 



ODX>0 
103UO 

0DY>0 
1 DY<0 

Pas de déplacement en x 

1 Déplacement x > 

Pas de déplacement x< 

1 Déplacement x < 

Pas de déplacement y > 

1 Déplacement y > 

D Pas de déplacement y < 
1 Déplacement y < 



Pour chaque boule il y a donc &20 octets de réservés 
afin de gérer tous les déplacements des boules. 
Les tables TS et TC sont des simili tables de sinus et cosi- 
nus qui donnent en fonction d'un angle et de la vitesse, 
la vitesse résultante. 
La table TBT correspond aux boules tombées. 



Adresse dans la table 
Nombre de boule 
Numéro de la boule 

Côté de chute 

00 à dtoite 

01 à gauche 



En &98AD commence le programme proprement dit, il gère 
le déplacement des boules de billard et ne rend la main au 
programme BASIC que lorsque toutes les boules se sont immo- 
bilisées. Les explications contenues dans le listing source doi- 
vent être suffisantes pour comprendre l'algorithme, en résumé, 

• &9SAD à &997A 

C'est la boucle principale, c'est ici qu'est gérée l'initialisa- 
tion du nombre de chocs sur la bande, le nombre de boules 
en mouvement, l'initialisation du registre IX qui pointe sur 
la tableTCB de la boule en mouvement, la vitesse de la boule 
avec le ralentissement. Le déplacement de la boule se fait par 
appel à un sous-programme en &997C, l'affichage des bou- 
les tombées dans une blouse, la mise à jour de la table TBT, 
l'effacement et l'affichage de la boule à sa nouvelle position 
et enfin c'est ici que l'on détermine s'il y a encore une boule 
en mouvement. 

• &997C à &99E2 

On aère le déplacement de chaque boule, on calcule la posi- 
tion ruture de la boule et avec un appel au sous-programme 
TCHOC, on vérifie s'il y a un choc, si oui, on continue sur 
CHOC sinon on passe à la position suivante. Le nombre de 
déplacements dépend de la vitesse. 

• &99E3 à &9A72 

Sous-programme de test en cas de choc. On commence à ini- 
tialiser la table des chocs, puis on vérifie s'il y a un choc sur 
la bande ou une chute dans une blouse. Sinon on charge la 
table des coups en fonction de la direction de la boule. C'est 
à partir de cette table que l'on vérifie s'il y a choc avec une 
autre boule. 

• &9A73 à &9AB6 

On initîalise le registre HL avec une des tables Tl à T8 en 

fonction de la direction de la boule. 

- &9AB7 à &9AD1 

Mise à jour de la table TBC dans le cas de choc avec une 

boule. 

• &9AD4 à &9B4A 

C'est ici que se fait le test pour savoir si la boule tape contre 
une bande ou bien tombe dans une blouse. 

• &9B4B à &9B6A 

On initialïse le sprite d'affichage de la boule en fonction de 
la position de lo boule (position paire ou impaire en x). 

• &9B6B à &9B7B 
Mise à jour de la table TBC 

• &9B7C à &9EAE 

C'est la partie la plus importante du programme, c'est ici que 
l'on gère les chocs entre les boules ou contre la bande. On 
teste si la boule est tombée dans un trou, si oui, on arrête le 
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sous-programme sinon on regarde si c'est un choc de côté, 
si oui, on ralentit la boule, on incrémente pour cette boule 
le nombre de chocs bande, on met à jour le côté du choc, on 
calcule la nouvelle direction puis on saute au programme qui 
gère l'effet. Dans le cas d'un choc avec une boule, on met 
à les octets qui servent pour ce choc, on initialise le registre 
IY avec l'adresse de la boule choquée, on calcule l'octet SS 
de la boule choquée, ensuite les directions DX2 et DY2 en 
fonction du choc, enfin l'angle de choc. 
On initialise ensuite DX1 et DY1 afin de pouvoir calculer 
l'angle de rebond de la boule en mouvement. On calcule la 
vitesse des boules choquées à partir du calcul précédent des 
angles et de la table des "sinus" puis la vitesse résultante 
delà boule de départ à partir de la table des "cosinus". 
Pour terminer, on gère l'effet, tout simplement en modifiant 
l'angle de rebond en fonction du sens. 
Sachant que l'octet qui se trouve en (IX + # 1 I ) correspond 
à l'effet, on y met le nombre déterminé par la déviation de 
la queue sur la boule et en fonction du sens, on positionne 
le bit 8. En cas de choc, on inverse le sens de rotation de la 
boule. 

Suivent un certain nombre de sous-programmes : 
le premier détermine l'angle de la boule en fonction du sens 
et de la déviation en X et Y de la boule. Sachant que le cer- 
cle trigonométrique ici ne comporte que 32 angles différents. 
Ensuite on trouve le sous-programme SAN qui est en fait un 
sous-programme de CAN. 

Le sous-programme MAN est utilisé par le sous-programme 
EFFET et c'est lui qui modifie l'angle de rebond à droite ou 
à gauche, il utilise les sous-programmes qui suivent et aui 
sont : XP, XN, YP et YN. 

Afin d'avoir un affichage constant des boules le sous- 
programme AT est une temporisation variable qui dépend 
du nombre de boules en mouvement. 

Le sous-programme CPT affiche les boules tombées dans les 
blouses. 

Le bruitage est effectué par le sous-programme BRU qui uti- 
lise les 3 tables TBR1 , TBR2 ET TBR3, pour charger les 
registres du PGES. 

Le programme AFF est celui qui permet d'afficher les sprites 
des boules, il a été adapté pour ce jeu afin de gagner en rapi- 
dité et pour avoir un affichage au pixel. 
En &A100, c'est l'appel par le BASIC pour afficher une 
boule, appelé par CALL &A1 00, x, y, ad avec x et y la 
position de la boule et ad l'adresse du sprite à afficher. 
En &A1 10, c'est l'initialisation des tables DRO, GAU et 
TBT en début de partie. 

Quelques informations su p plémentaires 

La vitesse : à partir du BASIC, on détermine la force par 
la variable FO qui est "pokée" en IX + 6, en supposant que 
IX pointe sur la boule que l'on frappe. Donc, en IX + 6 on 
a un octet compris entre 1 et 10, en IX + 10, on a au départ 
0, on ajoute une valeur égale à § 1 à chaque fois que l'on 
déplace la boule. Quand cet octet déborde, on décrémente 
la vitesse, donc l'octet IX + 6. Ainsi lorsque l'octet IX + 6 arrive 
à 0, taboulé s'arrête. C'est l'octet IX + #10 que j'ai appelé 
"décimale" dans le programme source. 



. | 

10 à 90 

Demande des règles 

100 

Demande types de rèqles et de tir 

110 à 190 

Data d'initialisation de la table TCB 

200 â 240 

Data des angles de tir 

250 à 450 

Initialisation des variables 

460 à 550 



Raz des couleurs 
560 à 590 

Dessin de la table 

600 à 680 

Dessin des quatre coins 

690 à 720 

Dessin des quatre boulons 

730 à 760 

Dessin des quatre rebords 

770 à 820 

Dessin des diamants 

830 à 1000 

Dessin des trous 

1010 à 1060 

Dessin du titre 

1 070 à 1 1 00 

Affichage de "BILLARD" 

1110 a 1200 

Dessin du tableau des scores 

1210 a 1330 

Dessin du tableau de la direction et de la force 

1340à 1450 

Dessin de la valeur des boules 

1 460 à 1 490 

Dessin de la boule de choc 

1500 à 1640 

Dessin des boules sur la table 

1650 

Initialisation de la partie 

1 660 à 1 720 

Mise à jour des couleurs après dessin de l'écran 

1 730 a 1 760 

Affichage du score des joueurs 

1770 

Positionnement de la boule blanche sur la table 

1790 à 2100 

GESTION DE LA DIRECTION DU TIR 

1830 à 1870 

On affiche la boule de tir 

1880 

Test si fin de partie 

1890 

Mise à de la partie décimale de la vitesse 

1900 a 1950 

En fonction de AF on affiche la queue au niveau de la table 

ou sur le côté 

1960 à 2010 

Entrée d'un caractère 

2020 à 2100 

En fonction de la touche enfoncée, ou de la méthode de tir, 

on affiche la queue de billard 

21106 2210 

GESTION DE L'EFFET 

2220 à 2330 

GESTION DE LA FORCE DE TIR 

2340 à 2480 

DEPLACEMENT DES BOULES 

2390 à 2410 

On initialise les variables de la boule 

2420 à 2430 

Mise à jour en mémoire des variables dans la table TCB 

2440 

S'il s'agit des règles officielles, on mémorise la position des 

boules 

2450 

Mise à de l'octet &940F 

2460 

Raz du nombre de chocs sur les bandes 

Déplacement des boules par appel au sous-programme en 

langage machine 

Comptage du nombre de chocs sur les bandes 

2470 

Détermination du nombre de boules tombées 
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2480 

Raz du nombre de boules tombées 
2490 à 2920 
CALCUL DES POINTS 
2540 

Détermination en fonction de la règle 
2550 à 2730 
Règles de café 
2740 à 2920 
Règles officielles 
2930 à 3050 
FIN DE PARTIE 
3060 à 3190 

AFFICHAGE DU SCORE ET DU JOUEUR 
3090 à 3120 
Affichage du joueur 
3130 a 3190 
Affichage du score des joueurs 
3200 a 3320 

Calcul des points en fonction de la position des boules tom- 
bées et de leurs valeurs 
3330 à 3390 

Sous-programme de remise à zéro du nombre de chocs sur 
la bande 
3400 à 3490 

Sous-programme de comptage du nombre de chocs sur la 
bande 

3500 à 3670 

Sous-programme de déplacement de la boule blanche sur la 
table d'effacement 
3680 à 3780 

Sous-programme de la boule blanche lorsqu'elle tombe dans 
une blouse 
3790 à 3850 

Sous-programme de mémorisation de la position des boules 
numérotées 
3860 à 3930 

Sous-programme de vérification de la position des boules 
3940 à 4380 
Règles du jeu 
4390 à 4420 

Détermination du type de la règle 
4430 à 4470 
Détermination de la méthode de tir 



Les variables principales 



A 

Angle de tir 

AF 

Couleur de la queue définie au départ en fonction de la 

méthode de tir 

AN 

Ancien angle de tir 

ANBT 

Adresse de la boule de tir 

BT 

Nombre de boules tombées 

co 

Côté des boules tombées 

D 

Effet 

DE 

Effet corrigé 

FL 

Flag mis à 1 si la boule de choc est tombée dans une blouse 

FLf 

Flag mis à 1 si une boule au moins est tombée à droite 

FL2 

Flag mis à 1 si une boule au moins est tombée à gauche 

FL3 

Flag mis à 1 s'il n'y a pas eu de mouvement de boule après 

le tir 



FO 

Force de tir 

FSP 

Flag d'affichage de la boule blanche en fonction de sa 

position 

11,12 

Permet l'affichage de la détermination du joueur 

JOUEUR 

Numéro du joueur à jouer 

JOUEUR 1 

Score du joueur 1 

JOUEUR 2 

Score du joueur 2 

MAF 

Matrice contenant les angles de tir 

MPX, MPY 

Mémorisation de la position des boules avant le tir 

NB 

Numéro de la boule tombée 

NBC1 

Nombre de chocs sur la bande de la première boule 

numérotée 

NBC2 

Nombre de chocs sur la bande des autres boules numérotées 

NBTI 

Numéro de la boule de choc 

ouv 

Flag permettant de savoir si c'est le début de jeu dans le cas 

d'une partie avec les règles officielles 

PB 

Flag mis à 1 si la boule blanche est tombée dans une blouse 

PE 

Point de pénalité 

PK 

Adresse de la boule de choc dans la table TCB 

POSX, POSY 

Position de la boule blanche lors de la mise en place sur la 

table 

RE 

Flag déterminant le type de règles choisi 

SP 

Matrice d'adresse des sprites 

ss 

Octet SS mis à jour dans la table TCB pour déplacement de 

la boule 

TBT 

Comptage du nombre de boules tombées au cours de la partie 

TOT 

Nombre de points par le comptage des boules numérotées 

au cours du coup 

TOTD 

Total des points à droite 

TOTG 

Total des points à gauche 

Adresse dans la table GAU ou DRO du pointeur 

VX, VY 

Position en X et Y de la boule de choc 

XI, X2 

Mémorisation de la position de la queue avant déplacement 

X3, X4 

Position de la queue après déplacement 

XP,YP 

Position de la queue 

AFO$ 

Mode d'affichage graphique normal 

AF1 $ 

Mode d'affichage graphique XOR 

Chaîne représentant le score du joueur 1 

J2$ 

Chaîne représentant le score du joueur 2 
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DIONYSOS 



^U*u> 



Ce nom propre évo- 
que pour la multi- 
tude le vin. A vrai 
dire, Dionysos (ou Bacchus 
pour les Romains) était le 
dieu de la végétation, donc 
de la vigne en particulier. 
Ce logiciel vous propose de 
gérer l'immense cave que 
vous possédez comme tout 
Français digne de ce nom. 
Après le RUN "MENU" 
traditionnel, vous avez 
accès à deux options : la 
gestion de cave et la base 
de données sur les grands 
vins de France. 
Commençons par le plus 
urgent : mettre un peu d'or- 




dre dans vos trésors. Bien 
entendu, si vous ne possé- 
dez que du Bougnat vil- 
lage, bouteille en plastique 
cru 1987, ce logiciel ne 
vous sera pas d'une 
grande utilité. Chaque fiche 
comprend plusieurs rubri- 
ques : appellation, nom du 
cru, région, millésime, nom 
et adresse du négociant, 
date d'entrée, nombre de 
bouteilles, prix, observa- 
tions, reste en cave... 
Une option permet de lister 
tous les vins présents ou 
bien d'en choisir un particu- 
lièrement. Une petite envie 
de Jurançon sec ? Choisis- 



sez "sortir une bouteille" 
et indiquez le nombre de 
bouteilles nécessaire à 
étancher votre appétit. 
D'un seul coup d'oeil, vous 
avez accès à un tableau 
contenant le millésime, le 
nombre de bouteilles (avec 
l'indication d'un stock insuf- 
fisant), le prix unitaire et 
actualisé. Une petite sauve- 
garde avant de passer à 
l'autre option principale : 
la base de données. Celle- 
ci contient à la fois une liste 
des crus et une liste des 
mets. 

La liste des mets est établie 
avec les noms de régions : 
Alsace, Bourgogne, Val de 
Loire, Provence, Corse, 
Sud-Ouest... Une fois la 
sélection effectuée, un 
autre choix doit être fait 
dans les vins. 
Exemple : en Champagne, 
on me propose trois vins : 
le Champagne, le Rosé des 
Riceys et le Coteaux cham- 
penois. Pour chaque vin, 
on nous précise l'appella- 
tion, les catégories (rouge, 
blanc, rosé), ainsi que le 
prix moyen schématisé par 
des bouteilles de 1 à 3. En 
choisissant "Rosé des 
Riceys", on accède à une 
feuille d'informations con- 
cernant la qualité des 



années (de médiocre à 
exceptionnelle), la tempé- 
rature supportée, le vieillis- 
sement moyen et les plats 
qui peuvent accompagner 
le vin. En appuyant sur une 
touche, vous apprendrez 
l'année d'appellation, la 
production moyenne, le 
cépage et le degré mini- 
mum. 

La liste des mets permet un 
choix en fonction d'un 
menu donné. Par exemple, 
pour la bouillabaisse, le 
logiciel nous a conseillé 
Bandol, Côtes de Pro- 
vence, Côtes d'Aix-en- 
Provence, Bellet, Cassis et 
Coteaux de Baux-de- 
Provence. Chacun restant 
libre de choisir selon ses 
préférences. 

Tous les choix et les dépla- 
cements utilisent les flèches 
du curseur, donc pas de 
problème de prise en main 
d'autant que les comman- 
des sont soulignées en bas 
de page. 

Des mises à jour régulières 
vous seront proposées afin 
de garder une certaine 
actualité dans votre cave. 
Le logiciel remplit (!) son 
office. Le seul reproche 
important peut être fait à la 
présentation qui est un peu 
sommaire. 




MICRO DIFFUSION 

ROANNE 

Distributeur agrée 
AMSTRAD 

Logiciels 

Standards et spécifiques 

Formation 

Maintenance 

Club utilisateurs 

Fournitures 

8, avenue Gambetta 
42300 ROANNE 
Tél. 77.70.56 67 
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BA/VC P'ZSSA/ 



ur/um/RE 



Voici un utilitaire de gestion de dis- 
ques qui possède une présenta- 
tion très soignée et qui rappelle 
le style Macintosh. Un panneau de contrôle 
vous permet de modifier la vitesse de ré- 
ponse des touches, la couleur de l'en- 
cre et du papier ainsi que la suppres- 
sion du bip. Les commandes sont 
accessibles par l'intermédiaire des 
icônes placées sur le côté droit de 
l'écran ou bien grâce à la barre du 
menu supérieure. Toutes les fonc- 
tions ne sont pas intégrées dans le 
programme principal. Prenons par 
exemple la copie de disques. Une fois 
l'option choisie, vous sortez du pro- 
gramme Max pour effectuer la copie 
puis vous êtes obligés de faire un 
reset pour retourner au programme 
principal : que de temps perdu ! 
Le directory de chaque disquette s'af- 
fiche à l'aide d'icônes dans une fenê- 
tre. Chaque fichier est représenté par 
un symbole : une pomme (ben 
voyons !) pour les fichiers binaires, 
un pot d'encre et un pinceau pour 
les images, un listing pour les pro- 
grammes BASIC. Max reconnaît en 




fait les suffixes différents et parti- 
culièrement ceux employés par les 
logiciels AMS (Stop Press, AMX Art, 
3D Ziccon). L'option hard copy signa- 
lée par un petit dessin d'imprimante 
permet d'obtenir les informations sur 
un support papier. 



A noter également : un formateur 
proposant les options DATA ou 
SYSTEM avec une éventuelle vérifi- 
cation des données, un copieur de 
disquettes au format standard, un 
éditeur de secteur classique et un 
accélérateur de vitesse concernant 
le moteur du lecteur de disque. 




.:-,.;..-i^-' : - ; '- 



La gestion des fichiers permet de 
cocher des programmes au catalo- 
gue, de déprotéger les fichiers BASIC 
(option "P"). Bien sûr, on peut aussi 
renoncer et effacer des fichiers. La 
poubelle est un outil intéressant 
puisqu'elle vous autorise à "jeter" un 
fichier et même à récupérer ce der- 
nier en cas de regret. Mais attention, 
après un "empty trash" ou "poubelle 
vide", il n'y a plus de recours possi- 
ble. 

Comme avec les "vrais" (GEM par 
exemple), on peut sauver les carac- 
téristiques du programme : vitesse 
de réponse des touches, couleurs. 
Cela évite d'avoir à entrer tous les 
paramètres lors d'une initialisation. 
Max porte un nom bien sympathique 
mais, malgré sa présentation très soi- 
gnée, ce n'est pas un programme 
intégré dans la mémoire de l'Ams- 
trad, il est donc un peu lourd à 
manier si vous désirez par exemple 
changer les noms de trois ou quatre 
fichiers. Pour vous procurer ce pro- 
gramme, la seule solution (pour l'ins- 
tant} consiste à écrire en Angleterre 
à : Advanced Memory Systems LTD 
- 166-170 Wilderspool Causeway - 
Warrington WA4 6QA. 
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COURRIER 
DES LECTEURS 



S.O.S. P.A. C.P.C. 

Jean-Louis Guilbert, 62 St-Laurent- 
Blangy nous fait part de sa joie d'avoir 
pu résoudre des problèmes de liaison 
CPCIMinitel grâce à la réponse à un SOS 
qu'il avait lancé dans les petites annon- 
ces de votre revue préférée. 

Hbous partageons la joie de ce 
Ê m lecteur et ne saurions trop 
inciter les autres lecteurs à l'imiter. 
Notamment pour les problèmes épi- 
neux d'imprimante (photocopie du 
mode d'emploi, paramétrage, etc.), 
ou d'autre matériel, ou encore pour 
certains programmes du commerce. Il 
est en effet bien rare qu'un autre lec- 
teur n'ait pas eu, à un moment ou un 
autre, le même problème, et l'ait 
résolu. Et vous êtes mieux placés que 
nous pour savoir que nos lecteurs sont 
formidables (si, si !) et qu'il se feront 
un plaisir de vous communiquer leur 
expérience. 



CLUBS 

De très nombreux lecteurs nous 
demandent l'adresse d'un 
club dans leur région. Malheureuse- 
ment, notre fichier des clubs d'infor- 
matique utilisant des Amstrad CPC 
n'est pas à jour. Aussi lançons-nous 
un appel à tous les clubs de France, 
de Navarre, de Belgique, de Suisse et 
des pays étrangers dans lesquels nous 
avons des lecteurs. Envoyez-nous vos 
coordonnées exactes. Si un change- 
ment d'adresse doit intervenir, 
signalez-le. Merci ! 




5, 6, 7 ET 8 

Cyril de Coatpont, 7150 Le Chesnay se 
trouva bien ennuyé lorsqu'il constata que 
le numéro 5 de CPC était épuisé, alors 
même qu'il voulait utiliser le programme 
de HARDCOPY de CPC n* 79 qui ne 
peut fonctionner sans de précieuses RSX 
de CPC n° 5. 

Ce lecteur n'est pas le seul à 
réclamer haut et fort une réé- 
dition des premiers numéros de la 
revue. La réédition des numéros 1 à 
4 est déjà disponible et nous conti- 
nuons dans le même esprit. Vous 
pourrez ainsi découvrir, entre autres 
choses, les premières initiations à l'as- 
sembleur, un traceur de graphiques, 
une gestion de discothèque, une table 
de références croisées, de nombreux 
jeux, et les très recherchés articles de 
Michel Archambault. 



CAO 464 

Philippe Maurice, 33000 Bordeaux 
déplore, possédant un CPC 464, de ne 
pouvoir utiliser le génial programme 
"Long Size" de CAO. 

JgMfotre cher lecteur peut retrou- 
ffWver son sourire, il existe une 
version de CAO pour 464. Les lecteurs 
un peu curieux auront pu lire en encart 
dans le texte du programme une 
remarque qui donne tous les rensei- 
gnements nécessaires pour se procurer 
le super-programme de Jean-Pierre 
Petit. 




CHAMPIONNAT 

More Hîmbut, 75002 Paris a un pro- 
blème avec la sauvegarde de ses don- 
nées dans l'utilisation du programme 
CHAMPIONNAT. 

e problème vient des 6128, et 
ï il suffit de créer le fichier 1987 
soi-même. A la main, en quelque 
sorte. La syntaxe est simple et ne pose 
pas de problème. 
OPENOUT "1987":PR1NT " ": 
CLOSEOUT 

Et le tour est joué. Profitez de la trêve 
de Noël pour mettre de l'ordre dans 
les résultats. 
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STRADAMUSE 

Cécile Mafye, 31000 Toulouse, aimerait 
utiliser STRADAMUSE, programme de 
composition musicale, mais ne parvient 
pas à obtenir les altérations 

KPour "diéser" correctement, il 
9 suffit d'entrer dans le même 
mouvement la note et son signe d'al- 
tération. Ne tentez donc pas d'opérer 
au coup par coup, le programme 
accepterait la note seule. 
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PASCAL OU LA LIBERTE DE 
FAIRE CE QUE L'ON VEUT 
COMME ON VEUT, OU ON VEUT 



Yves GERAULT 



6 e PARTIE 



^^y ous avons bien progressé 
1 M dans l'étude du PASCAL 

TURBO. Nous pouvons 
maintenant écrire des 
programmes conséquents qui 
tournent vraiment. La lecture de 
nos programmes fait cependant 
apparaître assez fréquemment 
les mêmes enchaînements 
d'instructions, comme s'il 
s'agissait de refrains dans une 
chanson. N'y a-t-il pas une 
manière d'agir afin de n'écrire 
qu'une fois chacun de ces 
refrains ? 




Avec la complexité des problèmes à résoudre les textes 
sources s'allongent et il est difficile de voir notre problème 
dans son ensemble. Il serait intéressant de construire une 
table des matières de notre programme, en n'écrivant que 
les titres. Pour plus de détails il suffirait d'aller tire le cria- 
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PROGRAM proc_1 (input, output) ; 




Sï 




BLOC DECLARATIF 




BEGIN (* début du programme principal *) 




BLOC INSTRUCTION 1 












BLOC INSTRUCTION 2 












BLOC INSTRUCTION 3 




EN 


D - (* fin du programme principal *) 






nprnupngp d'un programme 
Pascal en BLOCS SEQUENTIELS. 



kES PROCEDURES SIMPLES 

Le tableau 1 nous montre un programme découpé en plu- 
sieurs blocs. Notre bloc instruction, encadré par ses ordres 
traditionnels <BEGIN> <END>, se trouve subdivisé en 
divers petits sous-blocs appelés <BLOC 1 > <BLOC2> 
<BLOC 3>. Le tableau 2 montre ce même programme 
modifié par l'utilisation d'un nouveau BLOC DECLARA- 
TIF :1e BLOC PROCEDURE. Nous avons remplacé le bloc 
1 par un identificateur < BLOC 1 > et nous avons prévenu 
le compilateur que cet identificateur < BLOC 1 > repré- 
sentait un bloc d'instruction dont le détail se trouve dans 
la partie déclarative. 

Voyons maintenant notre partie déclarative. La non plus, 
il n'y a rien de compliqué. Nous avons tout simplement 
ouvert un nouveau bloc por le mot-clé < PROCEDURE > 
suivi de l'identificateur de notre procédure <BLOÇ 1 > 
suivi de l'immuable point-virgule pour signaler la fin de 
notre ligne PASCAL. Nous écrivons ensuite notre bloc 
d'instruction que nous encadrons par les instructions début 
de bloc et fin de bloc <BEGIN> et <END>. Comme 
la majorité des sous-blocs de la partie déclarative, le sous- 
bloc PROCEDURE n'a pas d'instruction de clôture autre 
que ce <END> suivi du traditionnel point-virgule. 
ATTENTION il s'agit de la fin d'un bloc que l'on met la 
pour des raisons pratiques et non de la fin du programme ; 
il ne faut surtout pas mettre de POINT final puisque jus- 
tement ce n'est pas la fin. ,;. ... '.. 
L'utilisation des procédures simples ressente 
6 celle du BASIC. Elle en diffère cependant pas des points 

: 

■ ;■"•'. 

rite des fjÂSSC modernes per- 
: : ■ 
Parcontre PASCALÏURêO* ^ecompîiéen 



LES PROCEDURES FORWARD 

Il est cependant des cas, très rares il est vrai, où il n'est 
pas possible de résoudre le problème de la déclaration 
préalable à son utilisation. BORLAND a prévu aussi ce 
cas. Il suffit de fournir au compilateur l'en-tête complet de 
la procédure et de le prévenir que le bloc instruction cor- 
respondant viendra plus tard (FORWARD en anglais). Le 
tableau 3 montre l'utilisation de ce type de déclaration. 
On pourrait admettre que le compilateur fait deux fois le 
même travail, en fait, il n'en est rien. Nous y reviendrons 
dans le cas de procédure plus sophistiquée. 
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TILISATION DE PROCEDURE SIMPLE 

Le listing 1 vous donne une utilisation de ce type de pro- 
cédure. H s'agit de faire disparaître ou de faire réappa- 
raître le curseur sur l'écran. Ceci est particulièrement inté- 
ressant lorsqu'on utilise intensément les GOTOXY pour 
afficher des valeurs à des endroits précis de l'écran, il est 
alors gênant de voir le curseur balayer sans cesse l'écran. 



PROGRAM proc_2 (input, output) ; 



BLOC DECLARATIF 



PROCEDURE BLOC_1 
BEGIN 



BLOC INSTRUCTION 1 



END; 

PROCEDURE BLOC_2 ; 
BEGIN 



BLOC INSTRUCTION 2 



END; 

PROCEDURE BL0C_3 ; 
BEGIN 



BLOC INSTRUCTION 3 
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END; 

BEGIN (* début du programme principal *) 

BLOC_1 

BLOC_2 

BLOC.3 
END - (* fin du programme principal 



ARIABLES GLOBALES 
ET VARIABLES LOCALES 

Le problème majeur rencontré lorsque les programmes 
s'allongent est le risque d'utiliser un identificateur pour 
deux choses différentes. Le problème devient assez com- 
plexe, voire inextricable, pour les gens qui utilisent cou- 
ramment des identificateurs peu explicites du genre 
a,b,c,ro,ter etc. Lorsqu'on utilise des sous-programmes le 
problème se complique de l'utilisation de ce sous- 
programme à divers points du programme dans des con- 
ditions pas toujours identiques. Les erreurs qui en décou- 
lent portent le nom D'EFFET DE BORD. 
PASCAL permet de s'affranchir d'une manière élégante 
de ce problème. C'est le programmeur qui décide si les 
variables utilisées dans une procédure s'appliquent à 
TOUT LE PROGRAMME ou si celles-ci sont STRICTE- 
MENT RESERVEES A LA PROCEDURE. Pour cela il fait 
la différence entre les variables GLOBALES et les varia- 
bles LOCALES à une procédure. Il fait de plus la diffé- 
rence entre les variables LOCALES de CHAQUE 
procédure. 



PROGRAM proc_3 (Input, output) ; 



BLOC DECLARATIF 



PROCEDURE spécial ; 
FORWARD ; 

(* on prévient que spécial sera *) 
(* détaillée plus loin *) 



PROCEDURE proc_a ; 
BEGIN 

spécial ; (* appel de spécial *) 
(* sans l'instruction FORWARD") 
(* H y aurait une erreur M *) 

END; 



PROCEDURE proc_b ; 
BEGIN 

END: 



PROCEDURE spécial ; 
.(* ici on place le détail 
(* des instructions 

BEGIN 

proc_b ; 

END; 



BEGIN (" début du programme principal *) 

proc_b ; 
spécial; 
proc_a ; 

END. (* fin du programme principal ') 






PROGRAM proc_4 (input, output) ; 

(* partie déclarative *) 
PROCEDURE essai ( valeurjl : Integer ; 
valeur_2 : char ) ; 
BEGIN 

(* bloc instruction *) 

END; 
('fin de essai*) 

PROCEDURE appelante ; 

VAR 

donnée_1 : Integer ; 
donnée_2 : char ; 

BEGIN 

essai (donnée_1 , donnée_2) ; 

essai (1 23, 'B - ! : 

END; 
(" tin de la procédure appelante *) 

BEGIN (* programme pnncipal *) 



END. (• fin du programme ") 



ES VARIABLES LOCALES 
A UNE PROCEDURE 



Jusque là, nous parlions de variables qui sont représen- 
tées par un identificateur déclaré dans la partie déclara- 
tive du programme : CE SONT LES VARIABLES GLO- 
BALES. Elles sont créées lors de la compilation du pro- 
gramme et prennent leur place dans l'occupation de l'es- 
pace mémoire de façon permanente durant la globalité 
du temps d'occupation de l'ordinateur par le programme 
les avant créées. Elles peuvent être appelées delà tota- 
lité au programme, y compris des procédures si le pro- 
grammeur en décide ainsi. 

Par opposition à ces dernières, il est possible de créer des 
variables locales à une procédure. Elles ne seront pas sto- 
ckées au même endroit dans l'ordinateur. Elles seront du 
type éphémère. ELLES N'EXISTERONT QUE LE TEMPS 
PENDANT LEQUEL LA PROCEDURE SERA ACTIVE. 
LORSQUE LE PROGRAMME QUITTERA LA PROCE- 
DURE PAR SON <END> ELLES SERONT DETRUITES. 
On en voit immédiatement les avantages : elles ne pren- 
nent pas de place en mémoire lorsqu'elles ne servent pas, 
de plus, après leur utilisation, l'espace mémoire qu'elles 
ont temporairement occupé est restitué au système. 

L'endroit où sont stockées ces variables locales se nomme 
la PILE de calcul. Cette pile sert à beaucoup de choses, 
c'est la feuille de brouillon dont se sert le microprocesseur 
pour faire ses calculs temporaires et noter ce dont il doit 
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se souvenir quand, pour diverses raisons il lui est néces- 
saire d'interrompre un travail en cours pour en faire un 
autre plus urgent. Lorsqu'il a terminé cette urgence il con- 
sulte son agenda (sa pile) pour savoir où il en était et 
reprendre le travail où il l'avait laissé. 
Le nom de pile vient du fait qu'il met ses informations les 
unes sur les autres comme une pile d'assiettes. Bien sûr 
pour avoir accès à une information il doit au préalable 
dépiler celles qui sont dessus. La gestion de cette pile est 
effectuée par le compilateur et n'est pas, comme en assem- 
bleur, du ressort du programmeur. OUF M! Mais que les 
puristes se rassurent, PASCAL leur permet aussi d'aller 
jouer avec la pile, à eux de ne pas être des APPRENTIS 
SORCIERS, sinon, il ne leur restera plus que le maniement 
du bouton marche/arrêt comme solution. 
Comment prévient-on le compilateur que l'on désire créer 
une variable locale ? De façon très logique. Il suffit d'in- 
tercaler entre la déclaration de procédure et le 
< BEGIN > qui indique le début du bloc d'instruction une 
partie déclarative en tout point semblable au bloc décla- 
ratif des variables globales. Le listing 2 donne un exem- 
ple d'utilisation de variables locales. Pour bien montrer 
que les variables locales et globales sont totalement dif- 
férentes, nous leur avons donné le même identificateur. 
Comment le compilateur sait-il qu'il doit se servir de la 
variable locale plutôt que de la variable globale ? ; par 
la définition de la priorité en cas de conflit. Lorsqu'il ren- 
contre le nom d'un identificateur, il cherche d'abord si 
celui-ci est local à la procédure, si oui c'est cette défini- 
tion qu'il prend, sinon il le considère comme global. 



ES PROCEDURES IMBRIQUEES 

Nous avons vu que la déclaration des variables locales 
se faisait dans la partie déclarative de cette procédure. 
Rien ne nous empêche dans la partie déclarative de la pro- 
cédure A de déclarer une procédure B qui elle-même aura 
dans sa partie déclarative une procédure locale C et ainsi 
de suite. Le problème posé devient : QUI EST LOCAL 
POUR QUI m 

PASCAL est un langage hiérarchisé. Il va donc repren- 
dre la même définition que pour le règlement du conflit 
du chapitre précédent. Lorsqu'il rencontre un identifica- 
teur inconnu lors de sa compilation, il cherche d'abord si 
celui-ci est local, si oui c'est cette définition qu'il retient, 
sinon, il remonte sa pile et cherche au niveau de la pro- 
cédure appelante et se repose la même question : l'iden- 
tificateur est-il local à cette procédure ? Si oui, il accepte 
cette définition, sinon il remonte sa pile au niveau de la 
procédure appelante et ainsi de suite jusqu'à ce que sa 
référence soit vérifiée. Il se peut ainsi qu'il remonte 
jusqu'aux variables globales. Du fait même du fonction- 
nement en pile des variables locales, il ne peut jamais, 
POUR PASCAL, y avoir de conflit. Pour le programmeur 
cela est moins évident. 

POUR EVITER TOUT PROBLEME, NOUS POUVONS 
PRENDRE COMME DEFINITION, DE NE JAMAIS 
MODIFIER DE VARIABLES GLOBALES DANS UNE 
PROCEDURE, SAUFCAS EXCEPTIONNEL, ET, APRES 
MURE.. REFLEXION.. 



ASSAGE DE PARAMETRE 
A LA PROCEDURE 

Nous avons reproché au BASIC d'avoir des sous- 
programmes qui n'étaient pas indépendants vis-à-vis du 
programme principal, Pascal faît-il mieux en la matière, 
et si oui, comment s'y prend-îl ?. Pascal résout effective- 
ment ce problème ae façon très élégante grâce à une 
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astuce de compilation liée à la manière dont il passe ses 
paramètres du programme appelant à la procédure 
appelée. 

Nous allons essayer d'être particulièrement explicites pour 
cette explication car c'est là, la seule difficulté d'utilisa- 
tion des procédures en PASCAL. 

Supposons, comme le montre le tableau 4, que nous vou- 
lions passer à la procédure < ESSAI > les variables 
suivantes : 

< donnée 1 > qui est du type integer. 
<donnée 2> qui est du type char. 
Le programme appelant va contenir l'instruction : 
essai (donnée 1, donnée 2) ; 
la procédure doit contenir l'en-tête : 
Procédure essai (valeur 1 : integer; valeur 2 : char); 
Nous voyons QU'IL N'Y A PAS CONCORDANCE 
ENTRE LES NOMS DES VARIABLES A TRANSMETTRE 
ET LES NOMS DES VARIABLES QUI SONT CENSEES 
LES ACCUEILLIR. Par contre il y a concordance de NOM- 
BRE de paramètres à transmettre et concordance de TYPE 
entre ce qui est transmis et ce qui reçoit. Il y a donc con- 
cordance de forme. C'est pourquoi ces paramètres seront 
désignés sous le vocable : PARAMETRES FORMELS (de 
forme). 

Lors de la compilation, PASCAL saura à la lecture de l'en- 
tête de la procédure <essai> qu'il lui faut deux valeurs 
qui doivent être, dans l'ordre, un <integer> et un 
<char> . C'est cette vérification qu'il effectuera. Lors de 
l'exécution, il AFFECTERA à la variable locale valeur 1, 
u'il créera dans sa pile de travail, la valeur contenue 
ans la variable donnée 1 et idem pour valeur 2 et don- 
née 2. Puis il effectuera les calculs de la procédure. 
Supposons que nous ayons mis les mêmes noms pour les 



LA TABLETTE GRAPHIQUE 




Points . traits , tracer , boîtes , cercle, fill , gomme , texte , miroir, copie , 
déplacements , translations , loupe , sauvegarde, chargement etc . . . 
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PROGRAM proc_5 (input, output) : % ~° 

i_ u 
{D O 

( partie déclarative *) —a. 

PROCEDURE essai (valeur_1 : integer ; .2 ~ 
valeur_2 : char ; g _o 

VAR retour : integer ) ; 'E |_ 



BEGIN 

(* bloc instruction *) 

END; 
(' fin de essai *) 

PROCEDURE appelante ; 
VAR 



1° 
o • 

U l 

n s 



ui 



réponse, donnée_1 : integer ; 
donnée_2 : char ; 

BEGIN 

essai (donnée_1 , donnée_2. réponse) ; 

essai (123, 'B', réponse) ; 

END; 
(* fin de la procédure appelante *) 

BEGIN (* programme principal *) 

END. (* fin du programme *) 



variables à transmettre et pour les variables de réception. 
Cela change-t-il quelque chose ? Si vous avez bien suivi 
ce qui précède, vous devez pouvoir répondre "NON" 
sans aucune hésitation. 

Reprenons quand même pour ceux qui sont les moins 
aguerris au maniement des cases mémoires. Dans son 
espace programme le compilateur a créé deux emplace- 
ments à titre permanent de longueur 16 bits pour l'entier 
donnée 1 et de longueur 8 bits pour le caractère donnée 
2. Durant le déroulement du programme ces variables se 
sont vues affecter des valeurs numériques diverses. Lors 
de l'appel de la procédure, il a été créé dans la pile de 
travail deux emplacements mémoire de longueur 16 bits 
et 8 bits. Les mémoires réservées au programme et les 
mémoires réservées à la pile de travail du microproces- 
seur ne sont évidemment pas les mêmes. Le compilateur 
a demandé au microprocesseur de recopier dans les 
mémoires de la pile les valeurs qui étaient mémorisées 
dans l'espace utilisateur. Désormais, dans le cadre de la 
procédure il peut arriver beaucoup de choses diverses aux 
variables de la pile donnée 1 et donnée 2 ; cela ne pourra 
avoir aucune incidence sur le contenu des variables don- 
née 1 et donnée 2 de l'espace programme. 
Le tableau 3 donne aussi un autre type d'appel de cette 
même procédure. Il est aussi correct puisqu'il est possible 
d'affecter la valeur 123 à la variable formelle valeur 1 
créée dans la pile de travail et de même pour "B" pour 
la variable formelle valeur 2. 
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En passant nous avons résolu, sans le dire, un autre pro- 
blème : celui du passage de la valeur d'une variable glo- 
bale à une procédure dans laquelle se trouvait une varia- 
ble locale ayant le même identificateur. Ce problème, sans 
l'existence des paramètres formels, aurait été insoluble. 



Retour de valeurs 

en provenance de la procedure 

Nous avons énoncé comme principe que nous ne devions 
pas changer la valeur d'une variable globale dans une 
procédure sauf dans des cas très précis et après mure 
réflexion. Il doit, de ce fait, exister une autre manière plus 
académique de procéder. Elle passe, elle aussi, par les 
paramètres formels. Elle est un peu plus compliquée à com- 
prendre dans son fonctionnement interne mais aussi sim- 

le d'utilisation. 

n exemple en est donné au tableau 5. Il reprend le même 
problème que précédemment en y ajoutant en plus la pos- 
sibilité d'un retour de valeur de la procédure appelée vers 
le programme appelant. 

Le programme appelant envoie à la procédure < ESSAI > 
les valeurs : <donnée 1 >, <donnée 2> et attend en 
retour la valeur <réponse>. L'instruction d'appel est 
donc : 

ESSAI (donnée 1, donnée 2, réponse); 
La procédure appelée reçoit en entrée les paramètres for- 
mels : < valeur 1 >,< valeur 2> et doit renvoyer au pro- 
gramme appelant une valeur par l'intermédiaire du para- 
mètre formel <retour>. L'en-tête de la procédure essai 
est donc : 

Procédure ESSAI (valeur 1 : integer; valeur 2 :char; VAR 
retour : integer); 

Comme on peut le voir le grand changement c'est la pré- 
sence du mot <VAR> précédant le nom du paramètre 
formel. Ce petit changement va avoir de grandes consé- 

3uences sur la valeur de <réponse>. Attention cepen- 
ant à ne pas utiliser ce petit mot à tort et à travers sinon 
gare aux erreurs. 

Par cette déclaration nous créons dans la pile de travail, 
un emplacement de 16 bits appelé <valeur 1 > pour le 
contenu de <donnée 1 >, un emplacement de 8 bits 
appelé <valeur 2> pour le contenu de <donnée 2>, 
un emplacement de 1 6 bits appelé <retour> pour le con- 
tenu de <réponse> ET UN EMPLACEMENT DE 16 BITS 
OU NOUS ALLONS COMMUNIQUER A LA PROCE- 
DURE APPELEE, <essai> L'ADRESSE DE LA VARIA- 
BLE <réponse> . 

Lorsque la procédure aura terminé son travail, avant d'ef- 
facer ses variables locales et de retourner au programme 
appelant, elle affectera le contenu de la variable locale 
<retour> à l'adresse de <réponse> contenue dans sa 
pile. Elle modifiera ainsi la valeur contenue dans 
< réponse >. 

Nous avons bien changé une valeur à l'aide d'une pro- 
cédure mais on ne peut pas dire que cela soit fortuit. Nous 
avons délibérément décidé de la changer. 



PROCEDURE essai (donnéej,donnée_2,donnée__3 : integer 
valeur_2, valeur_2, valeur_3 ; char . 
VARretour_1,retour_2 ; integer 

VAR réponsej , réponse_2 : char ) 



Syntaxe complète de l'instruc- 



tion PROCEDURE 
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«SYNTAXE GENERALE 

DE LA DECLARATION PROCEDURE 

Nous pouvons maintenant écrire la syntaxe générale de 
la déclaration procédure. Nous allons pour cela suppo- 
ser que nous avons les paramètres formels suivants : 

— donnée 1, donnée 2, donnée 3 qui sont des entiers ; 

— valeur 1, valeur 2, valeur 3 qui sont des caractères ; 

— retour 1, retour 2 qui sont des entiers à retourner au 
programme appelant ; 

— réponse 1 , réponse 2 qui sont des caractères à retour- 
ner au programme appelant. 

Le tableau 6 donne la syntaxe de cette déclaration. Nous 
voyons que les paramètres formels de même type peu- 
vent être énumérés comme dans le bloc déclaratif des 
variables, que chaque déclaration de type est suivie d'un 
point-vtrgule de la même manière que dans la déclara- 
tion des variables. Mais il y a une très grande différence 
dans la déclaration des paramètres formels qui doivent 
effectuer un retour au programme appelant : CHAQUE 
LIGNE doit être précédée du mot-clef VAR, ce qui n'est 
pas illogique mais qui est souvent source d'erreur. 
Par ailleurs, une fois de plus, rappelons qu'il y a une 
grande différence entre la ligne PASCAL et la ligne édi- 
teur et que nous pouvons nous arranger pour que la dis- 
position de notre texte source soit aussi parlante que 
possible. 



PROGRAM proc_7 (input, output) ; 

{ 1 

(* partie déclarative *) 

PROCEDURE essai ( Valeur_1 : imeger 
|..*.**...............j vaieur_2 : char 

VAR retour : integer 
FORWARD ; 

PROCEDURE appelante ; 

(•••**•" y 

VAR 



réponse, donnée 
donnée„2 


_1 


integer ; 
char ; 


BEGIN 






essai (donnée.^ 


donnée 


_2, réponse) 



END; 

{* tin de la procédure appelante *) 

PROCEDURE essai ; 

{ ) 

(* l'en-tête est réduit *) 

(* à sa plus stricte expression ") 

BEGIN 

(• bloc instruction de essai "} 

END; 

(* tin de la procédure essai •) 

BEGIN (* programme principal *) 
END. (* fin du programme *) 



PROGRAM proc_8 (input, output) ; 
{ ........... } 

(début de la partie déclarative) 
TYPE 

tab_5_10_int > array [1.. 5,1 ..10] of integer 
VAR 

tableau_1 :tab_5_lO_int; 

(fin de la partie déclarative) 

PROCEDURE entête„correcte 
,.... . 1 

(valeuM : integer ; 

valeur_2 :tab_5_10_int); 
(on peut jouer avec la disposition) 
(de la ligne pour faire plus joli) 

BEGIN 

END ; 

(fin de la procédure en-tête_correcte) 

PROCEDURE entête„non_correcte 
{ ............ ......... ... } 

(vaieur_J : integer ; 

valeur_2 : array [-1 ..2] of integer) ; 

BEGIN 

END; 

(fin de ia procédure entête_non_correcte) 

{ ...... , 

BEGIN (* programme principal ') 
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END. (* fin du programme *) 



«UELQUES SUBTILITES DE DECLARATION 

Le tableau 8 vous donne le mode d'utilisation général de 
la déclaration <FORWARD>. Elle est en accord avec 
ce qui a été dit au début de cet article : c'est lors de la 
déclaration de principe que l'en-tête doit figurer en entier 
afin que le compilateur puisse réserver dans sa pile le nom- 
bre d'emplacements correct et détecter les erreurs de com- 
patibilité des types. L'en-tête réel de la procédure, où sont 
détaillés les blocs d'instructions, quant à lui, n'est consti- 
tué que du nom de la procédure (pour mémoire). Le com- 
pilateur comme nous t'avions écrit ne fait donc pas deux 
fois le même travail. 

Le tableau 8 est plus subtil et nécessite une plus grande 
attention. La partie 8a est une déclaration a 'en-tête de 
procédure correcte, la partie 8b est une déclaration d'en- 
têté incorrecte et produira un message d'erreur. La rai- 
son en est que, dans une déclaration de procédure, ne 
doivent figurer QUE DES TYPES CONNUS par le com- 
pilateur. Une déclaration < array [-1..21 of integer> n'est 
pas un type et conduit donc à l'édition a'un message d'er- 
reur. Pour plus de détail nous vous renvoyons à ce que 
nous avons écrit à ce sujet lors des déclarations de 
tableaux. 
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begin 

write <#3> 
end; 
{fin de curseur_onï 

procédure curseur_o-f -f ; 

begin 

Write (#2) 
end; 
{■fin de curseur_offî 

{»*** DEBUT DU PROGRAMME PRINCIPAL ****> 
begin 
clrscr; 

curseur_of f ;gotoxy (10,10); readln (mot); 
rurseur_on ;gotoxy <10,15); readln (mot); 




S T I ' N G 2 




Illustration du problème du nom- 
mage des variables GLOBALES et LOCALES. 

program meme_nom (output); 

type 

str20 = string C201; 
var 

nom_commun : str20; 

procédure bidouille; 
< } 

var 

nom_commun : str20; 
begi n 

nom_cofn(nun: — ' bidouille'; 
writeln ('on est dans bidouille '); 
writeln (nom_commun) ; 
end ; 
{•fin de procédure bidouille} 

{#** début du programme principal ***} 
begin 

nom_commun: = 'principal'; 

writeln ('on est dans principal '); 

writeln (nom_commun> ; 

bidoui lie; (on va bricoler dans bidouille! 

writeln ('on est dans principal '); 

writeln (nom_commun> ; 
endH 

on est dans principal 

pr i ncipal 
on est dans bidouille 
bidouil le 

on est dans principal 

principal 
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EN COULEUR 

Le programme CATALOGUE de CPC n° 26 a fait 
bien des heureux. Mais le bonheur naît aussi de la 
couleur. Voici donc quelques lignes BASIC à insé- 
rer dans le chargeur du programme. 

22 POKE &a487,CP:POKE &a488,CP 

23 POKE &a48a,CB:POKE &a48b CB 

24 POKE &a48e,CC:POKE &a48f,CC 

CP est la couleur du crayon, CB la couleur de bor- 
dure, CC la couleur du crayon. Nous devons ces 
quelques POKE utiles à Pascal BERGE de Meudon 
la Forêt. 

caractères d'extension mmmmsmmm 

Un lecteur avait lancé un appel concernant l'utili- 
sation des caractères d'extension 141 à 159, voici 
la réponse de deux autres lecteurs : P. COUTILLARD 
de Paris et L MAZELLIER de St-Paul 3 Châteaux 
I out d abord, il faut savoir qu'une chaîne de carac- 
tères peut être affectée à chaque caractère d'exten- 
sion, 128 à 159, grâce à la commande : 

KEY n°, "chaîne". 



Ces caractères de contrâle peuvent être affectés à 
n'importe quelle touche du clavier ou du pavé numé- 
rique et même aux manettes. Les caractères de con- 
trôle portant les numéros 128 à 140 sont attribués 
au pavé numérique. Voyons le cas du 1 4 1 à travers 
l'affectation aux touches CTRL + " 1 " (le " 1 " du cla- 
vier I) de la fonction RUN. 

Dans un premier temps, nous définissons le carac- 
tère de contrôle par : 

KEY 141, "RUN" + CHR$(13) 

Nous pouvons et devons maintenant affecter ce 
caractère de contrôle à la touche désirée : le "1 " 
du clavier dont nous voyons dans le tableau "Numé- 
ros des touches" du manuel qu'il porte pour numéro 
64. Nous écrivons donc : 

KEY DEF 64,1,49,33,141 

Où 64 est le numéro de la touche utile, 1 signifie 
que la touche fonctionne à répétition, 49 le code 
ASCII du caractère"!" (voir table de codes ASCII) 
lorsque la touche est pressée seule, 33 le code ASCII 



EDGACOLORH 



Dans Trucs de CPC n° 29, nous vous mettions sur 
la piste du changement de couleur "hard". Nous 
avons aujourd'hui le grand honneur, et le petit avan- 
tage, de vous présenter en première mondiale l'Ed- 




gacolor, dispositif génial et peu coûteux qui, au prix 
de quelques efforts, d'un minimum d'attention et de 
soin, transformera l'écran de votre CPC ou de votre 
téléviseur en arc-en-ciel. 

Voyons un peu comment cet appareil, rien moins que 
révolutionnaire, fonctionne. Sachez d'abord que le 
rouge se mélange avec le vert et le bleu, tandis que 
le vert se mélange avec le rouge et le bleu, et que 
le bleu se mélange avec... le rouge et le vert. Vous 
suivez, c'est très bien, vous recevrez un bon point 
à la sortie du cours. Avec l'Edgacolor, par combi- 
naison de trois potentiomètres, vous obtiendrez avec 
votre CPC une gamme de dégradés inconnue de vos 
yeux jusqu'alors. Demandez-leur I 

Pourfabriquer cette petite merveille d'électronique 
et d'astuce, il va falloir faire votre marché ou fouil- 
ler les fonds de tiroirs. Procurez-vous : 

— 1 fiche vidéo DIN 6 points mâle ; 

— 1 fiche vidéo DIN 6 points'femelle ; 

— du câble à 6 conducteurs ; 

— 3 potentiomètres de 200 Q (ohms) (limites 
200/230 D) ; ' '-■■ 

— 3 grands boutons de potentiomètres (précision) ; 

— 1 boîtier à votre convenance. 

Il vous reste maintenant à suivre le schéma en ne 
vous trompant pas dans le câblage. Mais ça, c'est 
votre problème I N'oubliez surtout pas de remer- 
cier Edgar YAPOUTZIAN de Marseille, génial 
inventeur de l'Edgacolor qui marque une ère nou- 
velle pour le CPC I Pour Edgar, hip, hip, hip... 
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du caractère obtenu par la pression simultanée de 
SHIFTet"l" ce caractère étant"!" et 141 le code 
de la chaîne de caractères que nous avons définie 
par KEY et qui est "RUN" + CHR$(13), nous l'ob- 
tiendrons par pression simultanée, non pas de 
SHIFT, mais de CTRL et du caractère "1". 
Nous sommes maintenant à pied d'oeuvre et cha- 
que fois que nous appuierons sur CTRL et "1 ", nous 
obtiendrons l'effet d'un RUN suivi de ENTER. 
Exercez-vous en testant ces commandes, si vous 
n'avez pas bien compris, c'est très bien, vous 
apprendrez mieux ! 

En guise de dessert, mais il serait idiot d'entrer ces 
lignes sans les comprendre, quelques KEY, KEY DEF 
et SYMBOL qui faciliteront beaucoup la saisie de 
listes de programme. 

10 KEY 141, "FOR ":KEY DEF 64,1,49,33,141 

1 1 KEY 142,"NEXT ":KEY DEF 57,1,51,35,142 

12 KEY 143,"GOSUB":KEY DEF 56,1,52,36,143 

13 KEY 144,"GOTO":KEY DEF 49,1,53,37,144 

14 KEY 145,"ELSE ":KEY DEF 48,1,54,38,145 

15 KEY 146,"CHR$(":KEY DEF 40,1,56,40,146 

16 KEY 147,"LOCATE":KEY DEF 25,1,45,61,147 

17 KEY 148, "IF ":KEY DEF 29,1,58,42,148 

18 KEY 149,"THEN":KEY DEF 28,1,59,43,149 

19 KEY 150,"READ ":KEY DEF 39,1,44,60,150 

20 KEY 151, "DATA ":KEY DEF 31,1,46,62,151 

22 SYMBOL AFTER 63 

23 SYMBOL 64,&60,S>30,&78,&c,S,7c,&cc,&76 

24 SYMBOL 92,0,0,&3c,&66,&60,S3e,&8,&18 

25 SYMBOL 93, & 1 c,&32,&38, 

&6c,&38,&10,&90,&60 

26 SYMBOL 1 23,&6,&c,&3c,&66,&7e,&60,&3c 

27 SYMBOL 124, &30,&1 8,8,66, 

&66,&66,&66,&3e 

28 SYMBOL 125,&60,&30,&3c,&66,&7e,&60,&3c 

29 SYMBOL 1 26,&1 8,&24,&3c,&66,&7s,&60,&3c 

30 KEY DEF 10,1,55,65 

31 KEY DEF 11,1,56,66 

32 KEY DEF 3,1,57,67 

33 KEY DEF 20,1,52,68 

34 KEY DEF 12,1,53,69 

35 KEY DEF 4,1,54,70 

36 KEY DEF 6,1,44,38 

37 KEY 128,"Veuillez agréer, M, l'expression ": 
KEY DEF 15,1,48,128 

Vous disposez maintenant de tout un jeu de touches 
de fonctions prédéfinies et de caractères accentués 
français pour imprimante. S'ils ne correspondent pas 
à votre imprimante, modifiez les codes en les rem- 
plaçant par ceux de votre manuel. 



S.O.S. 



Un lecteur, utilisateur de dBASE II 
et Multiplan, rencontre des problè- 
mes avec les fichiers d'aide de ces 
logiciels qu'il a placés, à cause de 
leur volume, sur une disquette sépa- 
rée. Quand il passe de la disquette 
de travail à celle d'aide, et récipro- 
quement, le système se plante. Lui 
indiquerez-vous la procédure à 
employer dans ce cas ? 
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SOUS QUELLE 

ETOILE 
SUIS-JE NE ? 



320 F 

La disquette double-face 



MIROIR 
ASTRAL 

Avec une date, une heure et un Heu de naissance, 
votre CPC établira un portrait psychologique 
approfondi d'environ 15 pages sur imprimante I 
un logiciel qui vous étonnera par sa protondeur I 
Iversinn familiale d'un looiriel utilisé nar les professionnel: 



Astropsychanallsez votre famille, vos amlsj 
comme les plus grands hommes célèbres ' 



PREVISIONS! 
! ASTRALES j 



s. Un logiciel qui vous fera une étude prévisionnelle 4 



approfondie d'une période donnée ; 
(analyse basée sur les transits des planètes) 



380 F 



% 



^ | 380 F Pgur CPC 6128 

^ Ces deux programmes existent aussi en version MS/DOS# 

| au PRIX de 420 F. chacun i 

l 



1 I- 



% 



% 



BON DE COMMANDE 

A renvoyer à URANIE Software | 

B.P. 84 - 83UÛ-SANABY. 
TYPE D 'ORDINATEUR UTILISE 
Nom : 



Tél. 94 74 32 00g 




% 



Adresse 



Ville 



Je vous commande 
Q 1 logiciel "MIROIR ASTRAL' 



1 logiciel "PREVISIONS ASTRALES"! 



(port compris) y 

ci-joint mon règlement par chèque bancaire g 

83 



GUIDE DU 
PROGRAMMEUR 



1256 IF Efifi=25 THEN rjii 



« w PfiINT Cm*(7)!CHfi»!24J;'FICH[EI 




Votre programme est maintenant fin prêt, il ne vous reste plus qu'à envoyer 
votre œuvre à CPC. Mais n'oubliez pas : 

• d'envoyer les programmes sur un support magnétique (disquette ou çassettel. 

• de joindre un mode d'emploi détaillé manuscrit ou dactylographié, la liste complète des variables peut 
également être utile. 

Quelques cas spéciaux : les jeux. Joignez les solutions ou bien des astuces pour "visiter" l'intégralité 
du programme. 

- les programmes sources en assembleur seront publiés à condition de posséder un commentaire 
conséquent. 

• les listings sur papier ne sont pas obligatoires puisque les programmes sont de toute façon réimprimés. 

• le programme enregistré doit répondre à certaines caractéristiques. 

- la taille des commentaires mis en REM ne doit pas dépasser 35 caractères. 

- il faut éviter l'utilisation des codes de contrôles (CTRL X, CTRL I etc.) ceux-ci n'étant pas "digérés" 
par l'imprimante. 

- les listings en assembleur doivent être accompagnés des chargeurs BASIC adéquats. 

Enfin, essayez d'être original, nous croulons sous les Master-Mind, ies Yam, les gestions de fichier 
les lotos sportifs ou non. 
A bientôt dans CPC. 



PARTICIPEZ A CPC ! 



LE PROGRAMMEUR 

Nom Prénom - 



Adresse complète - 



Téi 



-Age- 



Jolndre un relevé d'identité bancaire pour paiement 
de vos piges. 

Attestation sur l'honneur 

Je soussigné ■■■. ..... 

déclare être l'auteur du programme ci-joint et ne 
l'avoir jamais proposé à une autre revue. 



LE PROGRAMME 

Nom 



Catégorie 
Taille 



□ Jeu Q Utilitaire □ Educatif 



Périphériques utilisés 

Support □ Cassette 

Compatibilité (testée) avec : 

□ 464 Q664 Q6128 

□ PC1512 QPCW8512 



□ Disquette 



Q PCW 8256 
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Loq/c/us 



BuBBLE GHOST 

ERE INFORMATIQUE 
Arcade 



Bien que cela ne soit pas 
précisé, l'action se passe 
vraisemblablement en 
Ecosse. Pourquoi ? Tout 
simplement parce que, dans 
ce logiciel, sont présents 
deux éléments typiques de 
ce pays : un château et un 
fantôme- 
Pendant toute la durée du jeu, le 
petit fantôme {qui est fort sympa- 
thique) va poursuivre un seul et uni- 
que but : faire traverser à son âme 
toutes les salies du château. Facile, 
pensez-vous ! Pas tant que cela, 
car il faut savoir que l'âme du fan- 
tôme a l'aspect d'une buile mais 
également sa fragilité ! H va donc 
falloir souffler sur la bulle pour la 
faire avancer seulement en évitant 
tout contact avec les nombreux 
objets se trouvant dans chaque 
salle ! De plus, pour rendre les cho- 
ses encore plus difficiles, il y a cer- 
tains objets qui ne veulent que du 
mal à l'âme du fantôme : une bou- 
gie allumée ou un ventilateur en 
marche par exemple... Heureuse- 
ment, en soufflant au bon endroit 
il sera possible d'anéantir l'action 
néfaste de ces objets... 




Bubble Ghost vous promet, à notre 
avis, un bon moment de détente 
avec ce petit fantôme mignon 
comme tout qui devient tout rouge 
lorsqu'il souffle trop longtemps !... 
Pour le diriger correctement, il vous 
faudra un peu d'entraînement, il 
vous faudra également une bonne 
dose de réflexes pour vous position- 
ner où il faut avant l'arrivée de la 
bulle pour que celle-ci n'éclate pas 
lamentablement !... Graphisme 
attrayant et animation réussie. 





/W' 



Classiques n° i 

ET 

CLASSIQUES N° 2 

TITUS 
Arcade 

Depuis que les jeux sur micro- 
ordinateurs ont commencé à exis- 
ter, nous avons pu constater une 
prolifération de jeux d'une part ainsi 
qu'une recherche de jeux de qua- 
lité de plus en plus élaborés d'au- 
tre part. Malgré tout, chacun est 
d'accord pour dire que l'on revient 
toujours avec plaisir aux logiciels 
dits classiques. C'est pourquoi les 
2 classiques de TittV s' avèrent très 
intéressants pour tous ceux qui 
n'auraient pas encore ces jeux en 
leur possession. 



* 



# 



Dans le Classiques n° 1, vous 
avez à choisir entre les Envahis- 
seurs où vous devez faire face à 
une armée dévastatrice, Glouton 
qui n'est autre que le célèbre Pac- 
Man et Infernal Breakout, casse- 
briques dans lequel apparaît au 
bout d'un certain temps une 
deuxième batte fort encombrante. 
Quant au Classiques n" 2, vous 
vous retrouvez face à Penggo où 
vous devez aligner trois diamants, 
Arnold qui grandit au fur et à 
mesure qu'il se promène et, pour 
terminer en beauté, vous devenez 
as du volant (ou fou du volant, au 
choix) dans un infernal Grand. Prix. 



BA/VC P'ZSSA/ 



LOq/C/ELS 



H 



AN D'ISLANDE 



LORICIELS 
Aventure 

Un simple petit coup de baguette 
magique et vous vous retrouvez 
transporté en Norvège, en plein 
XVII e siècle... L'énigme de l'aven- 
ture peut se résumer ainsi : vous 
êtes Ordener Guldenlew preux che- 
valier profondément amoureux 
d'une jeune fille se prénommant 
Ethel. Malheureusement pour vous, 
Ethel et son père Schumaker sont 




prisonniers au château de Munc- 
kolm, faussement accusés de crime 
d'Etat. Prouver leur innocence tient 
à peu de chose : il suffit de fournir 
une simple cassette... Seulement, 
comme par hasard, cette fameuse 
cassette a été volée par le plus ter- 
rible bandit sanguinaire du pays, j'ai 
nommé Han d'Islande. 

Alors, il ne reste plus qu'une seule 
solution : vous lancer à la poursuite 
de Han par monts et par vaux {sans 
oublier les mines de la ville souter- 
raine) afin que le juste droit puisse 
triompher et que, dans l'ordre tout 
à fait logique des choses, vous 
puissiez épouser votre belle... 




Si vous n'êtes pas très féru en lit- 
térature, sachez que Han d'Islande 
est un des premiers romans de Vic- 
tor Hugo. Sa lecture vous aidera, 
le cas échéant à résoudre l'énigme ; 
de plus, sachez que le logiciel est 
livré avec une cassette audio don- 
nant de nombreux extraits d'émis- 
sions de France-Culture sur Han 
d'Islande. Le logiciel en lui-même 



présente un graphisme soigné et un 
analyseur syntaxique (ou plutôt un 
reconnaisseur de mots) de banne 
qualité ; un seul regret à exprimer : 
les écrans où il n'y a pas beaucoup 
de texte semblent un peu trop 
vides. Malgré tout, il faut saluer 
l'initiative d'une adaptation sur 
micro d'une œuvre d'auteur 
classique... 



UBI SOF1 

Aventure 
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i l'aventure. Par ailleurs, 




La marque 

JAUNE 

COBRA SOFT 
Arcade! Aventure 

La scène 1 de l'acte I se passe bien 
entendu au Centaur car il est 
impensable que Blake et Mortimer 
conversent au coin du feu ailleurs 



que dans ce club "bon chic, bon 
genre"... Pour ceux qui ne connaî- 
traient pas ces deux illustres per- 
sonnages, en voici un portrait très 
rapide : Francis Blake est le blond 
à la fine moustache, membre du 
bureau M. 1.5. de l'intelligence ser- 
vice et Philip Mortimer est l'écos- 
sais adepte du whisky, physicien 
d'avant-garde... 



Ils ont tous deux un sujet inépui- 
sable de discussions en la personne 
de Septimus ou la Marque Jaune. 
La Marque Jaune est, hélas, un 
génial inventeur ayant mis au point, 
entre autres, le télécéphaloscope 
permettant de diriger un cerveau à 
distance... Diabolique, non ? C'est 
au travers de cinq séquences dif- 
férentes que vous allez devoir faire 
échouer la Marque Jaune ainsi que 
sa créature "Olrik". C'est ainsi que 
vous devrez l'empêcher de s'échap- 
per des docks, puis le pourchasser 
dans Green Park avant de pénétrer 
dans les égouts ; vous entrerez 
ensuite dans le laboratoire diaboli- 
que où vous devrez récupérer le 
Trésor de la Couronne avant de 
mettre définitivement Septimus 
hors d'état de nuire... 



La Marque Jaune est un logiciel 
très travaillé au plan graphique et 
tentant de s'approcher le plus pos- 
sible de Ea B.D. Une partie de 
l'écran sert à l'action proprement 
dite tandis que des décors et per- 
sonnages viennent s'incruster... 

Dans la série adaptation de B.D., 
la Marque Jaune représente une 
bonne performance méritant le 
détour. 





Les objets récupérés de cet 
vous seront aussi très u — 
dirais même plus nécessaires à la 



qu'avec E.X.I.T., vous av 
une nouvelle catégorie d'aventure 
qui présente, à notre avis, plusieurs 
avantages : vous nnui/ez uam nrn- 
mener librement uans plusieurs 
lieux avant d'agir (vous n'êtes pas 
bloqué dès le premier écran) ; tou- 
tes les actions se font à l'aide 
d'une main (superbement animée) 
qui vous libère d'un analyseur 



s nerrs , les grapnismes 
.ment superbes (sans com- 
mentaire) ; et, pour terminer, cette 
aventure vous oblige à faire tout 



_■ A.I. I 



piuuher de letat desc 
auteurs pour vous pernu..,^ 
résoudre l'énigme... A \ 
absolument. 
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I ETRIS 

MIRRORSOFT 
Arcade 

Si vous avez tendance à avoir un 
esprit carré, ce jeu, qui nous vient 
directement des plaines qui s'éten- 
dent au-delà de l'Oural, est pour 
vous. En effet, le principe de base 
est très simple : vous avez à l'écran 
une aire de jeu composée de dix 
lignes verticales ; des blocs de for- 



mes différentes vont apparaître un 
à un en haut de l'écran. Il y a sept 
blocs différents facilement différen- 
ciâmes de par leur forme d'une part, 
et de par leur couleur d'autre part. 
Vous pouvez faire subir toutes les 
rotations possibles à chaque bloc 
afin d'obtenir la position la plus 
intéressante... Toutes ces manœu- 
vres sont à exécuter dans un seul 
but : former des lignes horizonta- 
les complètes ; dès qu'une ligne est 
formée, elle disparaît de l'écran et 
les formes se trouvant au-dessus 
descendent d'un étage (ou plus !). 
La performance à exécuter consiste 
à réussir à former le plus grand 
nombre de lignes possibles car dès 
que les blocs atteignent le haut de 
l'écran... c'est votre mort ! 




BlLLY 2 

LORICIELS 
Arcade 

Après le franc succès qu'avait 
connu Billy la banlieue il y a main- 
tenant à peu près 18 mois, il pa- 
raissait indéniable que nous ayons 
un jour une suite ! C'est aujourd'hui 
chose faite et dans Billy 2, toute 
l'angoisse de l'intrigue réside dans 
un coup de téléphone que Billy doit 
donner à Lily et ce avant minuit ! 
Car passé ce délai, "sa meuf s'fera 
la malle avec Ricky le Têtard..." 
(Cendrillon nouvelle version !) 



Ce logiciel présentant un concept 
original agit sur vous comme une 
drogue. Vous êtes tenté de réali- 
ser toujours un meilleur score et. 
quand vous vous sentez à l'aise 



dans un niveau, vous pouvez pas- 
ser au niveau supérieur... Un der- 
nier détail : quand vous obtenez un 
bon score, la vitesse s'accélère ! 





Billy 2 reste toujours fidèle à sa 
banane et c'est avec beaucoup de 
plaisir que vous pourrez le retrou- 
ver dans un cadre très coloré, sur 
un fond musical entraînant et avec 
une animation satisfaisante... 



Seulement, les téléphones deman- 
I dent tous un code ! Alors, il n'y 
a plus qu'à jouer et jouer encore 
aux jeux vidéos qui permettront de 
gagner des sous et donc de se 
refaire de l'énergie pour abattre les 
potes de Ricky que celui-ci a 
envoyé à la rencontre de Billy pour 
lui mettre aimablement des bâtons 
dans les roues. La chaude ambiance 
quoi ! 




CE 



CREATION 

ET ANIMATION 

DE SPRITES 



Suite et fin du 
programme 
concernant 
l'animation des 
sprites. Dès le mois 
prochain, nous allons 
mettre en application 
ces principes afin de 
concevoir un jeu 
d'arcade entièrement 
en assembleur. 
Bon courage : il reste 
encore de nombreuses 
lignes à entrer. 



URGENT !!! 

Région Bordelaise, gérance 
à céder. Conviendrait à per- 
sonne jeune, dynamique, 
intéressée par la vente de 
matériel micro-informati- 
que. 

C.A. actuel : 200 000 F/ 
mois. 

Point de vente agréé AMS- 
TRAD, ATARI, COMMO- 
DORE. 

Pour tous renseignements : 
Tél. 56.91.15.81 




Michel # 
MAIGROT 



DJNZ NEXTCZ 



DJNZ NEXTL2 




BC, (LSP) 



PUSH DE 



ADD 



•INTERDIRE LES INTERRUPTIONS MASQUABLES 
(TESTS CLAVIER ET AUTRES] 
GAGNE EN RAPIDITE D'EXECUTION 



LD D, A 

JR NC.EXITAF 

PUSH HL 

LD HL,ttC050 

ADC HL : DE 

E* DE,HL 

POP HL 

DJNZ BCLAFI 



******* AFFICHER LES LIGNES ECRAN STOCKEES - 




• 



LU 



DE, (ADPROV) 
HL, LINES 
BC, (LONGTA) 



***** LIGNES BASSES *****- 

LD A, CLSB) 

OR A 

JR Z,LINEHA 



ADRESSE D'AFFICHAGE 
TABLE DES LIGNES STOCKEES 
LONGUEUR D'UNE LIGNE 



i NOMBRE DE LIGNES 
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